编写VB程序，建立到数据库连接，删除学生信息表中指定学号的学生记录（使用ADO Connection对象）

先引用：工程->引用->Microsoft ActiveX Data Objects 2.0 Library
选中这个点确定

Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim SQL As String
Dim a$

Private Sub Command1_Click()
CNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库地址;Persist Security Info=False"
RST.Open CNN.ConnectionString
SQL = "delete from 表名 where 学号='要删除的学号'"
CNN.Execute(SQL)

RST.Close
End Sub