Private Sub StuClassCommand_Click()
  Dim ScoreCount As Integer
  Dim strSql As String
  Dim i As Integer
  i = 0
  CountText.Text = ""
  Set Conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
   
  Conn.Open ConnStr
  strSql = "select * from 成績表 where 班級='" & ClassText.Text & "'"
  If Conn.State = 1 Then
     
     rs.Open strSql, Conn, adOpenKeyset, adLockPessimistic
    
     
     
     While i < rs.RecordCount
       
       ScoreCount = rs.Fields(3) + rs.Fields(4) + rs.Fields(5) + rs.Fields(6) + rs.Fields(7)
       
       CountText.Text = CountText.Text & "班級:" & rs.Fields(0) & " " & "學號:" & rs.Fields(1) & _
            " " & "姓名:" & rs.Fields(2) & " " & "高數:" & rs.Fields(3) & _
            " " & "英語:" & rs.Fields(4) & " " & "物理:" & rs.Fields(5) & _
            " " & "計算機:" & rs.Fields(6) & " " & "C語言:" & rs.Fields(7) & " " & "總分:" & ScoreCount & " " & vbCrLf
       rs.MoveNext
       
       
       i = i + 1
     Wend
     If rs.RecordCount = 0 Then
       
     CountText.Text = "數據庫中沒有這個班級的記錄"
     
     End If
  
  End If
  rs.Close
  Conn.Close
  

End Sub