vb.net2010 Access数据库添加内容有误，请求帮忙解决

需要把错误截图发出来，而且你的代码逻辑混乱
比如：建议改成下面（因为查询命令没有用到，删除),用new声明的不需要再次new
Dim ObjConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\VB.NET2010练习试例\我的程序练习\登入窗口\登入窗口\yxglxt.mdb")
'定义和建立数据连接
Dim strinsert As String = "insert into dr values('" & TextBox1.Text & "', '" & TextBox2.Text & "')"
Dim inst As OleDbCommand = New OleDbCommand(strinsert, ObjConn)
ObjConn.Open() '打开数据连接
MessageBox.Show(inst.ExecuteNonQuery())'执行命令
ObjConn.Close()