agan2 semua, maaf mau tanya

saya buat aplikasi konversi database ke excel pake visual basic, apabila dijalankan waktu kita tes program (run dari vb nya) konversi sukses dan data2 dari tabel yang ada dalam database semuanya tampil dengan sempurna

tetapi ketika programnya sudah di compile jadi exe, dan saya buat instalernya, trus diinstal di komputer lain, hasilnya konversi sukses tapi data2 dari tabel tidak ada, a.k.a hasilnya cuman file excel yang tak berisi

kira2 kenapa ya gan? tolong bantu yaaaaaa, makasih banyak sebelumnya

codingnya gini ni:

Private Sub konversi_Click()
Adodc1.Recordset.Update
On Error GoTo er
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
Dim oWorkBook As Object
Dim oWorkSheet As Object
Dim i As Integer, k As Integer
Dim lRow As Long
Dim LastRow As Long
Dim LastCol As Long
oExcel.Visible = False
oExcel.Workbooks.Open App.Path & "\kosakata_lema.mdb"
Set oWorkSheet = oExcel.Workbooks("kosakata.xls").Sheets("Batch")

i = 2 'Row in Excel

LastRow = frmFind.DataGrid1.Row 'Save Current row
LastCol = frmFind.DataGrid1.Col 'and column
frmFind.DataGrid1.Row = 0 'Fixed Row is -1
Do While frmFind.DataGrid1.Row <= frmFind.DataGrid1.VisibleRows - 1
For k = 1 To frmFind.DataGrid1.Columns.Count - 1
frmFind.DataGrid1.Col = k 'Fixed Column is -1
oWorkSheet.Cells(i, k).Font.Bold = False
oWorkSheet.Cells(i, k).Font.Color = vbBlack
oWorkSheet.Cells(i, k).Value = frmFind.DataGrid1.Text
Next
i = i + 1
If frmFind.DataGrid1.Row < frmFind.DataGrid1.VisibleRows - 1 Then
frmFind.DataGrid1.Row = frmFind.DataGrid1.Row + 1
Else
Exit Do
End If
Loop
frmFind.DataGrid1.Row = LastRow 'Restore original Row
frmFind.DataGrid1.Col = LastCol 'and Column

oExcel.Workbooks("kosakata.xls").Save
oExcel.Workbooks("kosakata.xls").Close savechanges:=True
oExcel.Quit

er:
If Err.Number = 1004 Then
Exit Sub
End If
End Sub