调用数据库中，有关声明的问题！！！

        Private Sub connDB(ByRef Conn As OleDbConnection)

            Dim myAccessConn As OleDbConnection = New OleDbConnection("Provider=***;Data Source=D:***")
            myAccessConn.Open()
            Conn = myAccessConn
        End Sub
这段代码写在数据库调用类（Class1.vb）中，但是如果我想在其他界面中调用这个类，请问在其他界面上怎么写？
比如我要在frm_Login中调用这个类，这个类写在Class1中，请问在frm_Login中怎么写？！？ --------------------编程问答-------------------- dim aa as new 类名
aa.conndb(cn) --------------------编程问答--------------------

Private   Sub   connDB(ByRef   Conn   As   OleDbConnection) 

                        Dim   myAccessConn   As   OleDbConnection   =   New   OleDbConnection( "Provider=***;Data   Source=D:*** ") 

                        myAccessConn.Open() 

                        Conn   =   myAccessConn 

                End   Sub

--------------------编程问答-------------------- dim aa as new class1
aa.conndb(cn) --------------------编程问答-------------------- 把这个通用的数据库操作的代码，单独提取出来作为一个类,如DbHelper.vb，不要放在某个窗体内部，这样在其他窗体中就可以直接使用了。
--------------------编程问答-------------------- 高手不对啊请重新确认下呗 --------------------编程问答--------------------

引用 3 楼 eaqpi 的回复:

dim aa as new class1
aa.conndb(cn)

对啊，我就是单独写在Class1.vb中的，没写在哪个窗体内部，但是在窗体中调用的时候需要怎么写啊，直接用也不行啊。 --------------------编程问答--------------------

引用 4 楼 taomanman 的回复:

把这个通用的数据库操作的代码，单独提取出来作为一个类,如DbHelper.vb，不要放在某个窗体内部，这样在其他窗体中就可以直接使用了。

对啊，我就是单独写在Class1.vb中的，没写在哪个窗体内部，但是在窗体中调用的时候需要怎么写啊，直接用也不行啊。 --------------------编程问答-------------------- 如果你在解决方案资源管理器中有classs1这个类，就这么用就可以了
--------------------编程问答--------------------

引用 3 楼 eaqpi 的回复:

dim aa as new class1
aa.conndb(cn)

第一条代码没问题了，可是下面这句还是不对啊，这个什么意思，什么作用啊，请高手重新确认，最好能解释下，谢谢啦。 --------------------编程问答-------------------- 请用public 定义函数
--------------------编程问答-------------------- “解决方案资源管理器”？什么意思？哪的？ “点”之后的么，这个有了，没问题，但是下面那句不对啊 --------------------编程问答-------------------- public Sub connDB(ByRef Conn As OleDbConnection)
--------------------编程问答-------------------- Public myaccessconn As OleDbConnection = Nothing
这个？然后呢 --------------------编程问答-------------------- public Sub connDB(ByRef Conn As OleDbConnection)
--------------------编程问答--------------------

引用 6 楼 afei_521 的回复:

引用 3 楼 eaqpi 的回复:

dim aa as new class1
aa.conndb(cn)

对啊，我就是单独写在Class1.vb中的，没写在哪个窗体内部，但是在窗体中调用的时候需要怎么写啊，直接用也不行啊。



Class1.vb



  Public   Sub   connDB(ByRef   Conn   As   OleDbConnection)



                        Dim   myAccessConn   As   OleDbConnection   =   New   OleDbConnection( "Provider=***;Data   Source=D:*** ")

                        myAccessConn.Open()

                        Conn   =   myAccessConn

                End   Sub 



Dim cls As Class1 = New Class1()

Dim conn As OleDbConnection = New OleDbConnection()

conn  = cls.connDB(conn )

--------------------编程问答-------------------- public Sub connDB(ByRef Conn As OleDbConnection)这个是写在哪的啊？界面中么？我放在这了，可是不对啊？

Public Class frm_Login
    Public myaccessconn As OleDbConnection = Nothing
    Dim connDB As clsDB
    Public Sub connDB(ByRef Conn As OleDbConnection)
        Dim selectDatabase As clsDB
不好意思  兄弟初学，耐心  耐心啊   呵呵

补充：.NET技术 ,  VB.NET