dim Myconnection as New oledbconnection(cn) 
Addstring = "insert into [hongfe] (Bm,mc,lxr,telepho,address,Memol)VALUES" & _
 "(" + bm.Text + "," + mc.Text + "," + lxr.Text + "," + telepho.Text + "," + address.Text + "," + Memol.Text + ")"
                            Dim Mycommand As New OleDbCommand
                            Try
                                Myconnection.Open()
                                Mycommand.CommandText = Addstring
                                Mycommand.CommandType = CommandType.Text
                                Mycommand.Connection = Myconnection
                                Mycommand.ExecuteNonQuery()
                            Catch ex As Exception
                                MessageBox.Show("添加失败！")
                            Finally
                                Myconnection.Close()
                            End Try
以上是代码
  运行了！没有错误提示！但就是没有数据到数据库里面去！
 本人初学！请高手指教！谢谢！

 QQ：58227926
天天在线！