hormat master2 programer
minta bantuan gan???ini code di form ane yang ada konkesi database nya.di form ldan modul lain itu ga ada???
yang mau tak tanyain gmna cara ngganti koneksi database nya??
pernah tak coba ganti, tapi app nya pas tak run compile error gitu gan??
database yang dulu itu pake acces .mdf tak ganti dengan format sama pun tetep gamau???
bantuanya ya gannnn

Option Explicit
Const DATASIZE = 1420 / 4
Const NAMESIZE = 54
Public gGetState As Boolean
Dim glngEnrollData As Variant
Dim gTemplngEnrollData(DATASIZE) As Long
Dim glngEnrollPData As Long
Dim gbytEnrollData(DATASIZE * 5) As Byte
Dim mMachineNumber As Long
Dim mDeviceKind As Long
Dim mDeviceVer As Long
Dim mConvKind As Long
Dim glngUserName As Variant
Dim gTempEnrollName(NAMESIZE) As Long


Private Sub BenumbAllManager_Click()
Dim vRet As Boolean
Dim vErrorCode As Long

lblMessage.Caption = "Working..."
DoEvents

vRet = frmMain.FP_CLOCK1.EnableDevice(mMachineNumber, False)
If vRet = False Then
lblMessage.Caption = gstrNoDevice
Exit Sub
End If

vRet = frmMain.FP_CLOCK1.BenumbAllManager(mMachineNumber)
If vRet = True Then
lblMessage.Caption = "Success!"
Else
frmMain.FP_CLOCK1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If

frmMain.FP_CLOCK1.EnableDevice mMachineNumber, True
End Sub
Private Sub Form_Load()
cmbBackupNumber.ListIndex = 0
cmbEMachineNumber.ListIndex = 0
txtEnrollNumber.Text = 1
txtCardNumber.Text = 0
cmbPrivilege.Text = 0
gGetState = False
cmbConvType.ListIndex = 0

If VarType(glngEnrollData) = vbEmpty Then
glngEnrollData = gTemplngEnrollData
End If
If VarType(glngUserName) = vbEmpty Then
glngUserName = gTempEnrollName
End If

With datEnroll
.DatabaseName = App.Path & "\ADOGaji.mdb"
.RecordSource = "select * from tblEnroll"
.Refresh
If .Recordset.RecordCount > 0 Then
.Recordset.MoveLast
.Recordset.MoveFirst
End If
End With
mMachineNumber = frmMain.gMachineNumber
frmMain.FP_CLOCK1.GetModel mMachineNumber, mDeviceKind, mDeviceVer
mConvKind = 0
If mDeviceKind = FK_328 Then
lblMessage.Caption = "FK328KM Device Ver " & Format(mDeviceVer)
mConvKind = 1
cmdSendAllEnrollData.Enabled = False
cmdSetCompany.Enabled = False
cmdDeleteCompany.Enabled = False
ElseIf mDeviceKind = FK_338 Then
lblMessage.Caption = "FK338KM Device Ver " & Format(mDeviceVer)
mConvKind = 4
cmdSendAllEnrollData.Enabled = False
cmdSetCompany.Enabled = False
cmdDeleteCompany.Enabled = False
ElseIf mDeviceKind = FK_528 Then
lblMessage.Caption = "FK528KM Device Ver " & Format(mDeviceVer)
mConvKind = 2
ElseIf mDeviceKind = FK_526 Then
lblMessage.Caption = "FK526EA Device Ver " & Format(mDeviceVer)
mConvKind = 3
ElseIf mDeviceKind = 0 Then
lblMessage.Caption = " Device Invalid "
mConvKind = 0
End If

End Sub