13518219792
首先你要测试下你的程序能不能连接到数据库；
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：申请域名、雅安服务器托管、营销软件、网站建设、鄂尔多斯网站维护、网站推广。
若数据库连接成功了，那么就是insert into 语句有问题；
在调试模式下，你插入的数据库内容通过查表是看不出来的；内容没有写入到表中；
oledb就不用eof和bof了，使用OleDbDataReader读的话就是一条一条读，从第一条开始
Dim rd As OleDbDataReader
If rd.Read = True Then
g_ServerInfo.sID = rd("Id")
End If
用read判断，没记录了就false了
用DataSet读就更省事了
Dim ds As DataSet
ds.Tables("tbInfo").Rows.Count是行数，直接for循环就完了
Dim _datatable As New System.Data.DataTable() Dim _oledbdataadapter As New OleDbDataAdapter("select 输出商品条码，商品数量，商品名称 from 商品信息 WHERE 商品信息.商品编号='" textbox2.Text.Trim() "'", mycon) _oledbdataadapter.Fill(_datatable) DataGridView2.DataSource = _datatable
去掉objconn.Open()和 objconn.Close()，因为OleDbDataAdapter的Fill方法会自动开启连接和关闭连接
没有没有数据看是否 DBDB表中本来就没有数据？可以用DataTable验证
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Nutrition\Nutritions.mdb;Jet OLEDB:Database Password=123456"
Dim objconn As New OleDb.OleDbConnection(strconn)
Dim strsql = "select * from DBDB"
Dim objadap As New OleDb.OleDbDataAdapter(strsql, objconn)
Dim tb As New DataTable
objadap.Fill(tb)
DataGridView1.DataSource = tb
End Sub
2、Access不是一种存储格式，是一种软件。 请大家严格区分Access软件与MDB 格式。以下的语句是错误的：“我用VB来开发MIS系统，数据存储在ACCESS中。”。VB下调用MDB格式(或JET DB)只是调用一种格式的文件而已，并没有调用到 Access，其实官方说法叫“VB的JET应用”。另外，MDB 格式的文件也可以被其他开发工具，比如DELPHI/PB/C/PHP/ASP/CGI 调用。但是被调用的只是MDB文件，很多ACCESS 软件所具有的功能，这些开发工具是无法调用的。 也正因为如此，类似这样的问题“我的系统中没有安装OFFICEACCESS，是否能用ASP调用ACCESS 数据库呢？”，答案是：当然可以，其实你根本没有使用ACCESS 这个软件，只是使用了MDB 这种数据库格式，而这种格式只要系统中有OLEDB引擎就可以支持。WINDOWS98以及以上版本的WINDOWS操作系统都内置支持OLEDB引擎。NET程序必须在 .NETFRAMEWORK下才能运行，而能够运行 .NETFRAMEWORK 的操作系统中默认都已经安装了MDAC 无需再次安装，而且在安装 .NETFRAMEWORK的时候也会有检查MDAC的功能。记住，
