I looked at the code below for the past 2 days and cannot see anything wrong with it but I am getting an error. Please help.......... Thanks


Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click
        Dim myConnection As OleDbConnection = New _
                OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=G:\IDC\Received Dispensed Deleted.mdb;User Id=admin;Password=;")
        Dim myDataAdapter As New OleDbDataAdapter
        Dim myDataSet As DataSet = New DataSet
        'Set the SelectCommand properties...
        myDataAdapter.SelectCommand = New OleDbCommand
        myDataAdapter.SelectCommand.Connection = myConnection
        myDataAdapter.SelectCommand.CommandText = "SELECT Received, Dispensed, Destroyed" & _
        "FROM Received " & _
        "JOIN Dispensed ON Received.Received = Dispensed.Dispensed " & _
        "JOIN Destroyed ON Received.Received = Destroyed.Destroyed "
        myDataAdapter.SelectCommand.CommandType = CommandType.Text

        myConnection.Open()
        Try
            myDataAdapter.SelectCommand.ExecuteNonQuery()
            'Fill the DataSet object with data
            myDataAdapter.Fill(myDataSet, "Received")
        Catch err As OleDbException
            MessageBox.Show(err.Message)
        Finally
            myConnection.Close()
        End Try
        'set the DataGrid properties to bind it to our data.....
        GridDrug.DataSource = myDataSet
        GridDrug.DataMember = "Received"
    End Sub

You need a space after “Destroyed” in

...Destroyed" & _

Should be

...Destroyed " & _

The way you have it evaluates to “... DestroyedFROM ...”