Dim ScoreCount As Integer
  Dim strSql As String
  Dim strCourse As String
  
  CountText.Text = ""
  Set Conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  strCourse = CourseText.Text
  strSql = ""
  

  strSql = "select * from 成績表 "
  
  

  
  Conn.Open ConnStr
  
  If Conn.State = 1 Then
     
     rs.Open strSql, Conn, adOpenKeyset, adLockPessimistic
     If rs.RecordCount > 0 Then
       
       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
       
     
     Else
     
       CountText.Text = "沒有該學生"
     
     End If
     
  
  End If
  rs.Close
  Conn.Close