Dim rs As ADODB.Recordset
Dim sqlstr As String
'查询
sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"
rs = VScn.Execute("" & SqlStr & "")
If Not rs.EOF Then
TextBox1.Text = rs("字段名").Value.ToString
End If
'修改
sqlstr = "update 表名 set 字段名= '" & 要修改的内容 & "' where 字段名= '" & 查询的内容 & "'"
VScn.Execute(sqlstr)
'删除
sqlstr = "delete from 表名 where 字段名= '" & 查询的内容 & "'"
VScn.Execute(sqlstr)