vb 模块级变量怎么定义

以下是我在模块中定义的:

Option Explicit
Dim DBc As New ADODB.Connection
Dim DBr1 As New ADODB.Recordset
Dim DBr2 As New ADODB.Recordset
Dim sqlstr As String
Dim tim As Integer
Dim myval As String

以下是一个登陆时的界面：

If DBc.State = 0 Then    ·运行时 DBc.State = 0 老报错，我不知道错哪里·

   Dim a As String
   a = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
   App.Path & "\kfgl.mdb;Persist Security Info=False"
   DBc.CursorLocation = adUseClient
   DBc.Open a
 End If
 If DBr1.State = 1 Then
    DBr1.Close
 End If
 If DBr2.State = 1 Then
    DBr2.Close
 End If
 sqlstr = "select * from qxsz"
 DBr1.Open sqlstr, DBc, adOpenStatic, adLockBatchOptimistic
 DBr2.Open sqlstr, DBc, adOpenStatic, adLockBatchOptimistic
 Set dc1.RowSource = DBr1
 dc1.ListField = DBr1.Fields("操作员").Name

请高手帮忙解决一下！谢谢！

public 定义公用变量

private 私有变量

模块是用 public

如果你把变量声明到了模块中,那么就要用全局变量即楼上那位朋友所说的 public 来声明即可.

你只需把模块的声明改下:

public DBc As New ADODB.Connection
public DBr1 As New ADODB.Recordset
public DBr2 As New ADODB.Recordset
public sqlstr As String
public tim As Integer
public myval As String