Sql query problem

[jajiyiko]

Hi!

I have a problem

I have two dbf files

I want to link this files but this files are mot linked.



where is wrong code?
please help me?

This code is not work




Dim crapp As New CRAXDRT.Application
Dim report As CRAXDRT.report
Dim crapor As CRAXDRT.Database
Dim yalcin As Integer
Dim db1 As DAO.Database
Dim rs1 As Recordset

Private Sub Command1_Click()
Set db1 = OpenDatabase("D:\Yeni Klasör\posak", False, False, "DbASE III;")
Set rs1 = db1.OpenRecordset("select * from CIKIS,GIR WHERE CIKIS.KANTAR=GIR.KANTAR")

crapor.SetDataSource rs1
Set report = crapp.OpenReport("D:\Yeni Klasör\posak\Dene2.rpt")

item1 = "{CIKIS.KANTAR}"
item2 = "{GIR.KANTAR}"
report.FormulaFields.Item(1).Text = item1
report.FormulaFields.Item(2).Text = item2

CRViewer1.ReportSource = report
CRViewer1.ViewReport
CRViewer1.Zoom 100
End Sub