Dim ds As New DataSet
Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\VeriTabanı\Veritabanı.mdb" & ";Persist Security Info=False;")
cn.Open()
With F_AracGiderTakibi
sorgu = "select " & F_AracGiderTakibi.SUTUNLAR.Text & " from ARACTAKIP WHERE " & _
" TARIH BETWEEN @d1 and @d2 AND PLAKA LIKE '" & .PLAKA.Text & "%' ORDER BY PLAKA,TARIH,SAAT"
Dim cmd As OleDbCommand = New OleDbCommand(sorgu, cn)
cmd.Parameters.Add("@d1", SqlDbType.Date).Value = .ILKTAR.ValidateText
cmd.Parameters.Add("@d2", SqlDbType.Date).Value = .SONTAR.ValidateText
cmd.CommandType = 1
cmd.Connection = cn
cmd.ExecuteNonQuery()
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter
adapter.SelectCommand = cmd
adapter.Fill(ds)
End With
Dim report As New CrystalReport2
report.SetDataSource(ds.Tables(0))
CrystalReportViewer1.ReportSource = report
CrystalReportViewer1.Refresh()
i find my own solution.