Dim con As New ADODB.Connection
con.Open "Provider=microsoft.jet.oledb.4.0;data source=d:\a.mdb"
Dim rs As New Recordset
Dim strSQL As String
strSQL = "delete from a where id='" & Text1.Text & "'"
rs.Open strSQL, con, adOpenStatic, adLockReadOnly
这样行么