我有一段VB程序，可是看不懂，帮我解释一下，谢谢

Private Sub Command1_Click()
Dim adoRS1 As New ADODB.Recordset
Dim strConn As String
Dim strSQL As String

Dim strDataFile As String
Dim strTableName As String
Dim strTemp As String

strDataFile = "KYGL.MDB"

strConn = "Data Source=" & strDataFile & ";Provider=Microsoft.Jet.OLEDB.4.0"

If Not UCase(考题.getSelectedTestAn) = UCase(Text2.Text) Then
strTestSc = 0
End If

'其它参数可以根据情况选用
If intRecon <= 0 Then
strSQL = "insert into answer (姓名,考次,编号,回答,得分) values ('" & Form2.Label1 & "', '" & 考题.rdnbTmp & "', '" & strTestNumber & "', '" & Text2.Text & "', '" & strTestSc & "') "
Else
strSQL = "update answer set 回答='" & Text2.Text & "', 得分=" & strTestSc

有一段程序看不懂,请解释一下 急！！！VB小程序看不懂？ 求助vb一段程序 一段vb程序 为什么我看不懂VB 请VB高手写一段小程序,有追加!!!!!!!!200 VB中有没有什么方法可以结素一段程序 看不懂的VB程序呀! 求注释! 一段程序看不懂,高手帮忙读一下 DSP一段程序，看不懂，大侠帮忙呀