YUKARIDAKİ YEDEKLEMEYİ KENDİ VERİTABANIMA KOPYALADIM AŞAĞIDAKİ KODDA HATA VERİYOR SORUN NE ACABA

Private Sub Form_Timer()
On Error GoTo err_Form_Timer


Dim rrss As New ADODB.Recordse Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strOldDbName As String
Dim strNewDBName As String
Dim strOldDBPrefix As String
Dim intX As Integer
Dim iLocB As Integer
Dim iLocE As Integer
Dim fYear As String
Dim fMonth As String
Dim fDay As String
Dim bOK As Boolean

Dim Y As String
Y = "00:00"
If X <= 55 Then
Me.Label10.Visible = True
X = X + 1