毕业设计遇到的问题：vb连接数据库出现问题

Question

不是计算机专业的，不小心选了一个计算机专业的毕业设计。一个航空管理信息系统，在网上下到代码了。运行时候出现这个提示：
Run-time error '91':Object variable or With block variable not set是哪出错了吗，是odbc配置错了吗？我创建的是文件dsn，实在是不懂
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gintSmode As Integer 'for service
Public gintPmode As Integer 'for plane
Public gintAmode As Integer 'for airline
Public gintTmode As Integer 'for customertype
Public gintCmode As Integer 'for customer
Public gintKmode As Integer 'for ticket
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 SubPublic Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=ticket.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'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)
   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 Function
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub
Public Function GetRkno() As String
    GetRkno = Format(Now, "yymmddhhmmss")
    Randomize
    GetRkno = GetRkno & Int((99 - 10 + 1) * Rnd + 10)
End Function

Answer 1

创建的文件dsn测试了吗
首先先把这个问题解决了

Answer 2

单步执行看看
你的dsn测试过了么

Answer 3

Run-time error '91':Object variable or With block variable not set
这个错误的意思是有一个对象变量定义了,但是没有设置.例如:
    Dim db As ADODB.Connection  '实际应该是Dim db As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    db.Open "..."
就会出现91错误

Answer 4

创建好文件dsn后，出现这个错误Run-time error '339':Component 'MSFLXGRD.OCX' or one of its dependencies not correctly registered: a file is 
missing or invalid急死我了，马上就要上交毕业设计了

Answer 5

运行中打
regsvr32 msflxgrd.ocx这样打的话要注意
msflxgrd.ocx
这个文件要在system32下哦

Answer 6

兄弟，教你一招！假设实用ACCESS数据库
实际上，连接数据库哪里有这么复杂嘛，最简单的办法就是实用ADODC1控件。如果用代码：
dim rs As New ADODB.Recordset
dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名称.mdb;Persist Security Info=False"(打开数据库）
rs.open"表名称", conn, adOpenKeyset, adLockPessimistic（打开数据库里面的表）
短短四行代码，是不是比你的强啊？

Answer 7

忘记补充一句：你首先要引用ADO库才行啊，不然就找不到对象了！