oledb

 dim cmdSelect = New OleDbCommand("SELECT TrTerimaBarangMst.NoBukti, TrTerimaBarangMst.Tgl, TrTerimaBarangMst.KdSupplier, TrTerimaBarangDtl.Kode, TrTerimaBarangDtl.Qtty, TrTerimaBarangDtl.Harga, [Qtty]*[Harga] AS Jumlah, Barang.Nama AS NamaBarang, Supplier.Nama AS NamaSupplier " & _
"FROM ((TrTerimaBarangMst INNER JOIN TrTerimaBarangDtl ON TrTerimaBarangMst.NoBukti = TrTerimaBarangDtl.NoBukti) INNER JOIN Barang ON TrTerimaBarangDtl.Kode = Barang.Kode) INNER JOIN Supplier ON TrTerimaBarangMst.KdSupplier = Supplier.Kode " & _
"WHERE tgl BETWEEN ? and ? " &
"ORDER BY TrTerimaBarangMst.NoBukti", conn)

cmdSelect.parameters.addWithvalue ("?a", TglFROM.Value.Date)
cmdSelect.parameters.addWithvalue ("?b", TglEnd.Value.Date.AddDays(1))
 da =  New OleDbDataAdapter (cmdSelect)