用odbc.net连接以后，如何删除DATAGRID中的数据？？？

[liweigz]

下面是我写的连接代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdloadDB.Click
Dim cn As OdbcConnection
cn = New OdbcConnection("dsn=sybasetest;uid=jwdba;pwd=sybase;")
Dim mystring As String = "Select * from HXPBZJ"
Dim cmd As New OdbcCommand()
cmd = cn.CreateCommand
cmd.CommandText = mystring
Dim cnadapter As New OdbcDataAdapter()
Dim ds As New DataSet()
cnadapter.SelectCommand = cmd
cnadapter.Fill(ds, "HXPBZJ")

Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataMember = "hxpbzj"
cn.Close()
End Sub
接下来，我在窗体上放一textbox控件，当点击DATAGRID时，把某一列的值给textobx，看下面
Private Sub cmddel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddel.Click
Dim cn As New OdbcConnection()
cn.ConnectionString = "dsn=sybasetest;uid=jwdba;pwd=sybase;"
Dim cmddelete As New OdbcCommand()

Dim mda As New OdbcDataAdapter()

Try
cn.Open()
cmddelete = cn.CreateCommand
cmddelete.CommandText = "delete from HXPBZJ WHERE PXH ='" & Me.TextBox1.Text & "'"
mda.DeleteCommand = cmddelete

Dim ds As New DataSet()

Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataMember = "HXPBZJ"
Catch ex As Exception
MessageBox.Show(ex.Source & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try
End Sub
但是这段怎么也通不过，请各位高手给解答，万分感谢 ~~~!!!

[flers]

点击DATAGRID不是这个事件吧？都没看到你赋值给TEXTBOX
textbox1.text=datagrid1.item(datagrid1.currentcell,3)这个记的不是很清楚了，你找下

[dongbeiren]

同意楼上，你的事件不是datagrid的

Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As New System.Data.SqlClient.SqlConnection("server=localhost;database=northwind;uid=sa;pwd=sa;")

Dim da As New System.Data.SqlClient.SqlDataAdapter("select * from orders", cn)
Dim ds As New System.Data.DataSet()
Try
da.Fill(ds)
DataGrid1.DataSource = ds
DataGrid1.DataMember = "table"
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType.ToString, MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try
End Sub

Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
TextBox1.Text = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, DataGrid1.CurrentCell.ColumnNumber)
End Sub

[liweigz]

赋值给textbox我写出来了，只是没有贴出来，请指教啊。多谢