asp.net(VB)中，数据库链接添加类中的程序怎么写？？vs2003环境

Question

在.aspx.vb中page_load事件中打开数据库连接
代码：
        Dim strcon As String
       strcon = "provider=Microsoft.Jet.OlEDB.4.0;Data Source=" + Server.MapPath("mytext.mdb")
       Dim con As OleDbConnection = New OleDbConnection(strconn) 
       con.Open()
我现在不想再page_load事件中写代码，而是在项目中添加了一个dbcon.vb的类文件
该文件打开
Public Class dbcon
空白    
End Class我写入如下代码：
Imports System.Data
Imports System.Data.OleDbPublic Class dbcon
    Public Function creatcon() As OleDbConnection
        Dim strconn As String
        strconn = "provider=Microsoft.Jet.OlEDB.4.0;Data Source=" + System.Web.HttpContext.Current.Server.MapPath("mytext.mdb")
        creatcon = New OleDbConnection(strconn)
    End FunctionEnd Class
然后回到.aspx.vb中，将之前写的注释掉，写入如下代码
Dim con As OleDbConnection 
con = New dbcon.creatcon
当我写入new空格的时候，出现dbcon，可是我在之后点的时候，没有出现creatcon方法
是不是vb类里，不能用function定义类里的方法？？？？
这个类应该怎么写呢？？？？
一定要用vb
C#我已经写出来了，运行没有问题

Answer 1

应该可以用function的,你把它定义成静态函数试下!
一会儿有时间,我试下再来回复!

Answer 2

我不了解vb.net，只提供思路。
你有一个类，这个类有一个方法，并且不是静态方法。
因此， 你需要实例化这个类，并在这个实例上调用方法。Dim con As OleDbConnection 
Dim dbconobj As dbcon
dbconobj = New dbcon
con = dbconobj.creatcon 可能语法上不太对。当然像ls说的将creatcon 定义成静态方法就可以直接使用了。
con = dbcon.creatcon 

Answer 3

Dim con As OleDbConnection 
Dim dbconobj As dbcon 
dbconobj = New dbcon 
con = dbconobj.creatcon 有问题 

Answer 4

Dim con As OleDbConnection 
dim dbcon as new dbcon
con = New dbcon.creatcon 

Answer 5

Dim con As OleDbConnection 
dim dbcon as new dbcon
con =  dbcon.creatcon 

Answer 6

Dim con As new OleDbConnection
好久不用了 忘记了
实例化下试试