简单的OLEDB操作问题

Question

Dim Sql As String
  Dim Cmd As OleDb.OleDbCommand
  Dim Adapter As OleDb.OleDbDataAdapter
  Dim DS As Data.DataSet
  Dim DBStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=|DataDirectory|\txl.mdb"
  Dim conn As OleDb.OleDbConnection
  conn = New OleDb.OleDbConnection(DBStr)
  conn.Open()
  Sql = "select * from [表1] where ID > 0"
  Cmd = New OleDb.OleDbCommand(Sql, conn)
  Adapter = New OleDb.OleDbDataAdapter(Cmd)
  DS = New System.Data.DataSet()
  Adapter.Fill(DS)
  Textbox1.Text = DS.Tables("表1").Rows(0).Item(1)
运行后最后一句报"未将对象引用设置到对象的实例。"