用VB＋sql作的学生信息管理系统 紧急求助！！！！！！！！！！！！！

要我们10天就把毕业设计搞定！！没办法找了本书作用VB＋sql作的学生信息管理系统。
         可是程序有错，我改来改去还是错！哪为好心人帮帮忙！
       愿意帮忙的请留下你的e_mail。我把程序发到你的邮箱里！不胜感激！！
    愿意帮忙的请留下你的e_mail。我把程序发到你的邮箱里！不胜感激！！
愿意帮忙的请留下你的e_mail。我把程序发到你的邮箱里！不胜感激！！这是其中的一个模块Module1.bas：请先看看   Public fMainForm As frmmain
Public UserName As String
Sub Main()
    Dim fLogin As New frmLogin
    '显示登陆窗体
    fLogin.Show vbModal
    '判断是否授权用户
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
    '判断是将进入系统
   
    Set fMainForm = New frmmain
    fMainForm.Show
End Sub
Public Function ConnectString() _
   As String
'returns a DB ConnectString（返回一个数据库链接）
   ConnectString = "FileDSN=studentinfo.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'传递参数SQL传递查询语句，MsgSting传递查询信息
'executes SQL and returns Recordset（自身以一个数据集对象的形式返回）
   Dim cnn As ADODB.Connection   Dim rst As ADODB.Recordset   '定义链接   Dim sTokens() As String     '定义字符串   On Error GoTo ExecuteSQL_Error    '异常处理
        
   sTokens = Split(SQL)    '用split函数产生一个包含各子串的函数
   Set cnn = New ADODB.Connection         '创建连接
   cnn.Open ConnectString                 '打开连接
   
 '  判断字符串是否有内容
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      
      '执行查询语句
      cnn.Execute SQL
      
      '返回查询信息
      MsgString = sTokens(0) & _
         " query successful"
   Else
   
  ' 创建数据集对象
      Set rst = New ADODB.Recordset
      
      '返回查询结果
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      '返回记录集对象
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
'清空数据集对象
   Set rst = Nothing
   '中断连接
   Set cnn = Nothing
   Exit Function
   
   '判断错误类型
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End FunctionPublic Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then     '判断输入内容是否为空
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function