nba历年选秀大会状元:急!VB高手请进,有关VB代码的问题!!!

高手门帮我翻译一下这些代码的意思把,把意思写在相对语句的后面.留下QQ也可以.翻译好了在追加100分!!!
Data1.RecordSource = "select * from kh where kh.客户编号 like " + Chr(34) + Text1.Text + "*" + Chr(34) + ""

Data1.DatabaseName = App.Path + "\管理员.MDB"

Private Sub Command1_Click() '删除记录
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub

Data1.Recordset.AddNew
Data1.Recordset.Fields("反馈主题") = Text1.Text

Public i As Integer

Private Sub Command1_Click()
Dim form1 As ADODB.Recordset
Call GetConnectionToDb
Set form1 = g_conn.Execute("select * from 管理员 where 用户名=ltrim('" & Text2 & "') and 密码=ltrim('" & Text1 & "') ")
If form1.EOF Then
MsgBox "您输入的信息有误，请重新输入！", , "系统提示"
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
Else
khxt.Show
Unload Me
End If
g_conn.Close
End Sub

Private Sub Command1_Click() '修改操作员密码
Data1.RecordSource = "select * from 管理员 where 用户名='" & Text1.Text & "'"
Data1.Refresh
If Text1.Text <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then
If Text3.Text <> "" Then
Data1.Recordset.Edit
Data1.Recordset.Fields("密码") = Text3.Text
MsgBox ("密码修改成功,退出操作员密码修改!")
Data1.Recordset.Update
khxt.Enabled = True
Unload Me
Else
MsgBox ("请输入新密码!!")
End If
Else
If Text1.Text = "" Then
MsgBox ("请输入操作员!")
Text1.SetFocus
Else
If Text1.Text <> Data1.Recordset.Fields("操作员") Then
Text1.SetFocus
Text1.Text = ""
MsgBox ("无此操作员,请重新输入!")
End If
End If
If Text2.Text = "" Then
MsgBox ("请输入操作员原密码!")
Text2.SetFocus
Else
If Text2.Text <> ma.Text Then
MsgBox ("原密码错误,请重新输入原密码!")
Text2.SetFocus
End If
End If
End If
End Sub

Private Sub Command1_Click()
'保存操作员及密码
If Text1.Text <> "" Then
If Text2.Text <> "" Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("用户名") = Text1.Text
Data1.Recordset.Fields("密码") = Text2.Text
Data1.Recordset.Update '更新记录
Data1.Refresh
Text1.Text = "": Text2.Text = "": Text3.Text = ""
MsgBox ("用户名设置成功！")
End If
Else
MsgBox ("请输入用户名！")
End If
End Sub