【VB 6 TO VB.NET】语句的翻译

With vRs08Class
If .state = adStateOpen Then
.Close()
End If

Dim ds As New DataSet
vRsStr = "SELECT * FROM m08Class " & _
"WHERE Class = '" & txtClass.Text & "'" & _
"AND SubClass = '" & txtSubClass.Text & "'"
ds = cls00Connection.getDataSet(vRsStr)
If RowCount(ds) <= 0 Then
MsgBox("CLASS NOT FOUND!")
Else
If DBNull2False(ds.Tables(0).Rows(0)!Conveyancing) = True Then
Load(f09Conveyance)
f09Conveyance.Show(1)
End If
End If