新手 Modules的问题

Question

我想在Modules中命名一个Conn（AdoDB.Connection），然后在Form1中使用Conn。
不知道怎么写。
下面是我自己想的代码，请高人指点。
－－－Modules－－－
Option Explicit
Public Conn As ADODB.ConnectionPublic Sub Conn_Load()
 Dim StrConn As String
 StrConn = "Provider=SQLOLEDB.1;Password=Pass;Persist Security Info=True;User ID=Name;Initial Catalog=hcszfilm;Data Source=Ser_Name"
 Conn.Open StrConn
End Sub－－－Form1－－－
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
    Dim Str As String
  Str = "select * from test "
  Rs.Open Sql, Conn, 1, 1
  Set DataGrid1.DataSource = Rs
End Sub
运行报run-time error '3001';
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

Answer 1

Public Conn As new ADODB.Connection

Answer 2

Conn.Open StrConn
什么加一个
set Conn = new connection.
尽量不要用dim xxx as new yyy

Answer 3

你的模块里怎么会有个
Public Sub Conn_Load()
啥意思啊.看你的代码逻辑,是要先调用这个的

Answer 4

不用这个
如何让Conn.open?

Answer 5

call Conn_Load   '加一句
Str = "select * from test "
Rs.Open Sql, Conn, 1, 1
Set DataGrid1.DataSource = Rs

Answer 6

－－－Modules－－－
Option Explicit
Public Conn As ADODB.ConnectionPublic Sub Conn_Load()
Dim StrConn As String
StrConn = "Provider=SQLOLEDB.1;Password=Pass;Persist Security Info=True;User ID=Name;Initial Catalog=hcszfilm;Data Source=Ser_Name"
set Conn = new connection
Conn.Open StrConn
End Sub－－－Form1－－－
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
Dim Str As String
call Conn_Load 
Str = "select * from test "
Rs.Open Sql, Conn, 1, 1
Set DataGrid1.DataSource = Rs
End Sub

Answer 7

看看这个：http://download.csdn.net/source/1498324

Answer 8

一般函数定义为main,工程-->工程属性-->启动对象 选中sub main
Public Sub Main()
Dim StrConn As String
StrConn = "Provider=SQLOLEDB.1;Password=Pass;Persist Security Info=True;User ID=Name;Initial Catalog=hcszfilm;Data Source=Ser_Name"
Conn.Open StrConnform1.show
End Sub

Answer 9

楼主大家说了这么多,你就这么简单的回复一句"这个好像也不行",这样不利于解决问题的.
至少10楼说的这个Main,是在它在1楼写的这句的基础上加的:
Public Conn As new ADODB.Connection你要想尽快解决问题,注意尽量相关的代码完整,问题叙述清楚些:)

Answer 10

Public Sub Conn_Load()
Dim StrConn As String'Set connection
set conn=new connectionStrConn = "Provider=SQLOLEDB.1;Password=Pass;Persist Security Info=True;User ID=Name;Initial Catalog=hcszfilm;Data Source=Ser_Name"
Conn.Open StrConn
End SubDim Rs As New ADODB.Recordset
Private Sub Form_Load()
Dim Str As String'open connection first
call Conn_Load()
 
Str = "select * from test "
Rs.Open Sql, Conn, 1, 1
Set DataGrid1.DataSource = Rs
End Sub