VB 语句 谁帮我解释一下

Private Sub Form_Load()
Me.Icon = Mainfrm.Icon
DTPicker1.Value = Date
Dim rs1 As New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim strsql As String
strsql = "select distinct 征定书号 from 图书征定表"
If rs1.State Then rs1.Close
rs1.Open strsql, CN, adOpenStatic, adLockOptimistic
While Not rs1.EOF
If Not IsNull(rs1.Fields(0)) Then
Combo1.AddItem Trim(rs1.Fields(0))
End If
rs1.MoveNext
Wend
End Sub

谁帮我检查一下中间的错误

谁能帮我解释一下这个vb语句? 谁帮我解释一下这个语句？谢谢！C++ 谁帮我检查一下，为什么这个VB语句错误？ 请帮我解释一下VB for语句中内循环的算法~ 附题 叫我解 帮我翻译一下VB中的语句 谁可以帮我解释一下这些简单的VB问题 VB中的语句，高手帮忙解释一下 请解释一下这段vb语句 能帮我解释一下这个HTML中的语句吗？ 帮我解释一下，开机后出现的下面这些语句