Ane bikin program penggajian pake VB 6, nah, ane pake Crystal Report, tapi terus-terusan eror.. yang terakhir ini compile error: expected function or variable.
Ane mohon bantuan agan-agan sekalian..

Nih listing codenya form yang buat nampilin crystal report.. Yang ane warnain merah itu letak salahnya gan..kira-kira gimana benerinnya ya gan


Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report

'program Cetak

Private Sub Command1_Click()
Report.PrintOut (CheckCetak.Value = 1)
End Sub

Private Sub Command2_Click()
Unload FormPreview
End Sub

Private Sub Form_Activate()
CrystalActiveXReportViewer1.Refresh
End Sub

Private Sub Form_Resize()
CRViewer1.Width = Me.Width - 2 * _
CRViewer1.Left

CRViewer1.Height = Me.Height - _
2 * CRViewer1.Top

On Error Resume Next

If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Salah pada berkas laporan", vbOKOnly, "Perhatian"
Command1.Enabled = False
Exit Sub
Else
Set Report = Appl.OpenReport(Trim(TextReport.Text))
CRViewer1.ReportSource = Report
CRViewer1.ViewReport

On Error GoTo 0
End If


Form3.TextReport.Text = "D:\Sriti\Program\Program Gaji2\ReportDataGaji.rpt"
Form3.Show 1
On Error Resume Next

'penguncian tabel

Function LockTable(Conn As ADODB.Connection, _
TableName As String)

Conn.Execute "LOCK TABLE " & tpegawai & " WRITE"
If Err.Number <> 0 Then
LockTable = False
Else
LockTable = True
End If
End Function

Function UnlockTables(Conn As ADODB.Connection)
Conn.Execute "UNLOCK TABLES;"
If Err.Number <> 0 Then
UnlockTables = False
Else
UnlockTables = True
End If
End Function

'penggunaan penguncian tabel

If LockTable(Conn, "barang") = False Then
Conn.RollbackTrans 'kunci edit nambah
MsgBox "Gagal mengunci tabel barang", vbOKOnly, "Perhatian"
Exit Sub
End If

'Lakukan pengeditan barang
Buka kunci

UnlockTables Conn
Conn.CommitTrans ' simpan transaksi

End Sub

Private Sub TextReport()
Call ReportDataGaji.rpt
End Sub