If Me.CheckBox1.Checked = True Then
If sqlfront <> "" Then
sqlfront += "And 学号= " + xuehao.Text
Else
sqlfront += "学号=" + xuehao.Text
End If
End If
If Me.CheckBox2.Checked = True Then
If sqlfront <> "" Then
sqlfront += "And 姓名= " + Name.Text
Else
sqlfront += "姓名=" + Name.Text
End If
End If
dim stringsql as string ="Select * Student Where "+sqlfront