Modul Koneksi VB.Net 2005 dengan database SQL SERVER 2000

Imports System.Data.SqlClient
Module modumum
    Public Function koneksi() As SqlClient.SqlConnection
        Dim con As SqlClient.SqlConnection
        'koneksi sebagai client untuk connect ke server
        con = New SqlConnection("data source=127.0.0.1; user id=sa; password=contoh ; initial catalog=db_contoh;")
        'koneksi untuk stand alone
        Return con
        con = Nothing
    End Function
    Public bool As Boolean
    Public da As OleDb.OleDbDataAdapter
    Public dt As New DataTable
    Public i As Int16
    Public cmd As OleDb.OleDbCommand
    Public strSQL As String
    Public CB As OleDb.OleDbCommandBuilder
    Public con = modumum.koneksi
End Module