高手帮我看一下下面的代码错在哪？写入数据老师报错！

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim connstring As String
Dim strsql As String
Dim conn As New OleDbConnection

connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "
connstring += Server.MapPath("Data.mdb")
conn.ConnectionString = connstring

conn.Open() '打开连接

Dim cmd As New OleDbCommand

strsql = "select count(*)from students where stno='" & TextBox1.Text & "'"
cmd.Connection = conn
cmd.CommandText = strsql

Try

strsql = "Insert into Students values( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "' ,'" & TextBox4.Text & "','" & Textbox5.Text & "',

高手帮我看一下下面的代码错在哪？写入数据老师报错！ 高手帮看一下下面的VB代码 请各位编程高手帮我看一下下面哪这些代码错在哪？求求了哪位大哥哥大姐姐帮帮忙谢谢了！ 谁帮我看一下下面的代码 请高手帮我分析一下下面的ASP代码 请高手帮我看一下我的这段VB代码错在哪了啊?谢谢! C高手帮我看一下代码 高手帮我看一下c代码 请个ASP代码高手帮我翻译一下下面的代码 谢谢~~~ 哪位高手帮我看一下下面的程序