Dim CString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\visual studio 2010\Projects\产品信息系统\产品信息系统\bin\Debug\酒单.mdb"
  

  Dim SQLStr As String = "Select * From 产品"
  

  Dim MyCon As New OleDbConnection(CString)
  

  Dim navigator As BindingManagerBase
  

  Dim MyCom As New OleDbCommand()
  

  MyCom.Connection = MyCon
  

  MyCom.CommandType = CommandType.Text
  

  MyCom.CommandText = SQLStr
  

  Dim MyDataAdapter As New OleDbDataAdapter()
  

  MyDataAdapter.SelectCommand = MyCom
  

  Dim MyDs As New DataSet()
  

  MyDataAdapter.Fill(MyDs, "产品")
  

  类别TextBox.DataBindings.Add("Text", MyDs, "产品.类别")
  

  产品名称TextBox.DataBindings.Add("Text", MyDs, "产品.产品名称")
  

  产品说明TextBox.DataBindings.Add("Text", MyDs, "产品.产品说明")
  

  库存量TextBox.DataBindings.Add("Text", MyDs, "产品.库存量")
  

  单价TextBox.DataBindings.Add("Text", MyDs, "产品.单价")
  

  产品详细信息TextBox.DataBindings.Add("Text", MyDs, "产品.产品详细信息")
  

  序列号TextBox.DataBindings.Add("Text", MyDs, "产品.序列号")
  

  navigator = Me.BindingContext(MyDs, "产品")