[求助]VB中向sql server添加数据记录的问题

我是个VB.net2005的初学者
我试着创建了个form1.vb
定义了四个控件
TextBox1
TextBox2
TextBox3
Button1
数据表为:Admin,里面只有三个字段,皆为varchar型
数据适配器AdminTableAdapter和数据集StudentsDataSet也弄好了
三个文本框也已经帮定了表
运行的时候能够出现数据

现在我要添加利用三个文本框添加数据到数据库(代码如下)
Public Class Form1
Dim dr As DataRow
Dim dt As DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AdminTableAdapter.Fill(Me.StudentsDataSet.Admin)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dt = StudentsDataSet.Tables("Admin")
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dt.Rows.Add(dr)
MsgBox("添加数据成功")
End Sub
End Class

最后弹出对话框告诉我添加数据成功,但是我检查sql server表里面,就是没有数据
我不知道到底问题在哪儿,请高手指点

[此贴子已经被作者于2007-5-1 18:28:14编辑过]

Public Class Form1
Dim dr As DataRow
Dim dt As DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AdminTableAdapter.Fill(Me.StudentsDataSet.Admin)
Dim cb as New Sqlserver.SqlCommandBuilder(Me.AdminTableAdapter)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dt = StudentsDataSet.Tables("Admin")
dr = dt.NewRow()
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dr(2) = TextBox3.Text
dt.Rows.Add(dr)
Me.AdminTableAdapter.Update(Me.StudentsDataSet.GetChanges,"Admin")
MsgBox("添加数据成功")
End Sub
End Class

要是不返回记录的话，我想还是直接用cmd.excutnonquery的好