The Microsoft jet engine cannot find the input table or query 'tblInManHeader'. Make sure it exists and that name is spelled correctly

Private Sub cmdRetrieve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRetrieve.Click

        Dim txtSQL, tempCust, UREDI As String
        Dim Mark As String
        Dim C45, C40, C20 As Integer
        Dim lSize As Long
        C45 = 0
        C40 = 0
        C20 = 0
        txtBC11.Text = "Searching..."
        txtPosNo.Text = "Searching..."
        txtGroup.Text = ""
        System.Windows.Forms.Application.DoEvents()
        'Rs1.Open "Select * FROM tblInManHeader, tblInManDetil, tblKPBC, tblPelabuhan, tblKemasan1, tblInManContainer, tblGrup Where NoBL = '" & Trim(txtBlNo) & "' And tblInManDetil.Car = tblInManHeader.Car And tblInManHeader.KdKPBC = tblKPBC.KdKPBC And tblInManDetil.DPelMuat = tblPelabuhan.KDPort And tblInManDetil.JNKemas = tblKemasan1.KDEDI And tblInManDetil.Car = tblInManContainer.Car And tblInManDetil.KDGrup = tblInManContainer.KDGrup And tblInManDetil.NoPos = tblInManContainer.NoPos And tblInManDetil.kdgrup = tblGrup.kdgrup", AccessConnect, adOpenStatic
        'Rs1.Open "Select * FROM tblInManHeader, tblInManDetil, tblKPBC, tblPelabuhan, tblKemasan1 Where NoBL = '" & Trim(txtBlNo) & "' And tblInManDetil.Car = tblInManHeader.Car And tblInManHeader.KdKPBC = tblKPBC.KdKPBC And tblInManDetil.DPelMuat = tblPelabuhan.KDPort And tblInManDetil.JNKemas = tblKemasan1.KDEDI", AccessConnect, adOpenStatic'
        Try
            Koneksi()
            Dim sql1 As New OleDbCommand
            sql1.Connection = database
            sql1.CommandType = CommandType.Text
            sql1.CommandText = "Select * FROM tblInManHeader,tblInManDetil,tblKPBC,tblPelabuhan Where NoBL = '" & Trim(txtBlNo.Text) & "' And tblInManDetil.Car = tblInManHeader.Car And tblInManHeader.KdKPBC = tblKPBC.KdKPBC And tblInManDetil.DPelMuat = tblPelabuhan.KDPort order by tblInManDetil.nobl"
            rd1 = sql1.ExecuteReader()
            rd1.Read()