VB里面语句，怎么实现对SQL数据库里面数据的增删改查

从“工程”菜单中“引用” 引用Microsoft ActiveX data objects 2.8
private sub command_click()
Dim mycon As ADODB.Connection '定义连接数据库对象
'如果你的数据库是access用下面的方式打开数据库
'*****************************************
mycon.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source=" & App.Path & "/ 这里写数据库名.mdb"
''*****************************************
'如果你的数据库是SQL的用下面的方式打开数据库
'mycon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=数据库名;Data Source=.\sqlexpress"

'***************************
mycon.Open '打开数据库

Dim rst As New ADODB.Recordset '定义一个记录集 ，用来打开表记录
sql="select * from information"
rst.Open Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集
rst.addnew '添加空记录
rst.fields(0)=text1,text
rst.fields(1)=text2,text
rst.fields(2)=text3,text
rst.fields(3)=text4,text
rst.fields(4)=text5,text
rst.update '更新数据库
msgbox"数据录入成功"
这样就可以了！ 不过我发现你的界面好像是VB.NET的，如果是VB.NET的你把邮箱发过来我直接过你发过去好了！

下面的例子就是对数据库进行添加删除修改的操作：
Private Sub Command1_Click()
For i = 0 To 5
Text1(i).Text = ""
Next i
Adodc1.RecordSource = "select * from " & s1 & " order by 编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")
Else
Text1(0).Text = "G0001"
End If
End Sub
Private Sub Command2_Click()
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
End If
Else
MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"
End If
End Sub

已发

在源码爱好者里边有很多例子 你可以在那里下载例子

不用ADO根本做不到