5头ptc接线图:请问这段程序是什么意思？？？

m_iBeginSaveTimer = 0
Dim rsTableName As New ADODB.Recordset
Dim rsColumnName As New ADODB.Recordset
Dim rsData As New ADODB.Recordset
Dim cnnJLDB As New ADODB.Connection

Dim sqlname As String
Dim strName As String

Dim FieldType() As Integer
Dim FieldLength() As Integer
Dim FieldName() As String
Dim FieldNote() As String

cnnJLDB.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If (Len(Trim(txtpathText.Text)) = 0) Then
Result = MsgBox("请指定需要备份的路径!", vbOKOnly, "数据备份")
Exit Sub
Else
If (Right(Trim(txtpathText.Text), 1) <> "\") Then
txtpathText.Text = Trim(txtpathText.Text) + "\"
Else
txtpathText.Text = Trim(txtpathText.Text)
End If
If (Dir(txtpathText.Text, vbDirectory) = "") Then
Result = MsgBox("指定路径不存在!", vbOKOnly, "数据备份")
Exit Sub
End If

End If
On Error GoTo ErrorHand
ErrorHand:
MousePointer = 1
MsgBox "数据备份失败，请重试！", 64, "提示信息"

请问这段数据备份的代码到底是什么意思，为什么我老是备份不成功啊？？？！！！
谢谢了！！！

On Error GoTo ErrorHand
那请问谁有备份的代码程序啊？？？
可以告诉我吗？？？
谢谢了！！！