求VB.net大侠帮助，万分感谢

[qqqwwwin]

VB.NET2008，数据库access2007，无报错，执行插入数据后数据库无反应，数据库类代码，执行代码如下
==========================================================
Private oldebConnection As OleDbConnection
Private oldebDataAdapter As OleDbDataAdapter
Private oldebCommand As OleDbCommand
Private dataSet As New DataSet
Private myDataSet As DataSet

Private mingcheng As TextBox
Private zhuanghao As TextBox
Private maishen As TextBox
Private fangshi As TextBox

'创建一个数据连接
Private strCon As String = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\wesley\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Database.accdb;Jet OLEDB:Database Password=13579; "
Private myConn As OleDbConnection = New OleDbConnection()


Public Sub GetConnected()


Dim myConn As OleDbConnection = New OleDbConnection()
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM xiangmu "
'创建一个 DataSet
myDataSet = New DataSet()
myConn.Open()
'通过OleDbDataAdapter对象得到一个数据集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(strCom, myConn)
'把Dataset绑定数据表
myCommand.Fill(myDataSet, "xiangmu")

End Sub
Public Sub closed()
myConn.Close()
'关闭此数据连接
End Sub
Public Sub insert()
Dim strInsert As String

Dim mingcheng As New TextBox
Dim zhuanghao As New TextBox
Dim maishen As New TextBox
Dim fangshi As New TextBox

Dim db As New ClassDB
db.GetConnected()
strInsert = " INSERT INTO xiangmu (mingcheng,zhuanghao,maishen,fangfa )" _
& " VALUES ( '" & mingcheng.Text + "','" & zhuanghao.Text + "','" & maishen.Text + "','" & fangshi.Text + "')"

End Sub
--------------------------------------------------执行-------------------
db.GetConnected()
db.insert()
在FORM2中执行

[wuyq11]

F11 看看strInsert
db.insert怎么写的

[qqqwwwin]

db.insert在上面啊，Public Sub insert()
Dim strInsert As String

Dim mingcheng As New TextBox
Dim zhuanghao As New TextBox
Dim maishen As New TextBox
Dim fangshi As New TextBox

Dim db As New ClassDB
db.GetConnected()
strInsert = " INSERT INTO xiangmu (mingcheng,zhuanghao,maishen,fangfa )" _
& " VALUES ( '" & mingcheng.Text + "','" & zhuanghao.Text + "','" & maishen.Text + "','" & fangshi.Text + "')"

End Sub

[qqqwwwin]

解决了一部分了
insert没有执行
Public Sub insert()
Dim strInsert As String

Dim mingcheng As New TextBox
Dim zhuanghao As New TextBox
Dim maishen As New TextBox
Dim fangshi As New TextBox
Dim maishen1 As Integer
If IsNumeric(maishen.Text) Then
maishen1 = CInt(maishen.Text)
End If

Dim strCon As String = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\wesley\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Database.accdb;Jet OLEDB:Database Password=13579; "
Dim myConn As OleDbConnection = New OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
strInsert = " INSERT INTO xiangmu (mingcheng,zhuanghao,maishen,fangfa )" _
& " VALUES ( '" + mingcheng.Text + "','" + zhuanghao.Text + "','" + maishen1 + "','" + fangshi.Text + "')"
Dim inst As OleDbCommand = New OleDbCommand(strInsert, myConn)
inst.ExecuteNonQuery()
myConn.Close()


End Sub
然后问题又出来了，从字符串“ VALUES ( '','','”到类型“Double”的转换无效。
我不太会调试
各位大大见谅，请直接告诉我解决方案，十分感谢

[cnuser1]

做一个例子，先把你的 MessageBox.show(Insert Sql Code)，检查看看，不然就是数据类型，及初始值处理了。