急死了~~`两个表关联,datagrid显示 出错!

Dim Myconnection As OleDbConnection
        Dim ada As OleDbDataAdapter
        Dim ds As DataSet        Myconnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & AppDomain.CurrentDomain.BaseDirectory & "alarmsys.mdb")
        Myconnection.Open()
        ada = New OleDbDataAdapter
        ds = New DataSet
        ada.SelectCommand = New OleDbCommand
        ada.SelectCommand.Connection = Myconnection
        ada.SelectCommand.CommandText = "SELECT ALARM.DATE FROM ALARM,town where ALARM.NOX = town.NOX AND ALARM.ZONE = town.ZONE"
        ada.SelectCommand.CommandType = CommandType.Text
        ada.Fill(ds, "alarm")
        dgBJXX.DataSource = ds
        dgBJXX.DataBind()