how i can create a class Conection in vb.net 2005

I am sorry that poor english. I am an indonesian.
I've got the answer by my self, that is like this..


Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class ClsKoneksi
Protected SQL As String
Protected Ds As DataSet
Protected TblPengguna As DataTable
Protected Cn As SqlConnection
Protected Cmd As SqlCommand
Protected Da As SqlDataAdapter

Public Function OpenConn() As Boolean
Cn = New SqlConnection("Data Source=localhost;Initial Catalog=dbPersediaan_Putusibau;Integrated Security=True")
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function

Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub

Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox("Koneksi Gagal.!", MsgBoxStyle.Critical, "Akses Gagal ExecuteQuery")
Return Nothing
Exit Function
End If
Cmd = New SqlCommand(Query, Cn)
Da = New SqlDataAdapter
Da.SelectCommand = Cmd
Ds = New DataSet
Da.Fill(Ds)
TblPengguna = Ds.Tables(0)
Return TblPengguna
TblPengguna = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function

Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox("Koneksi Gagal.!", MsgBoxStyle.Critical, "Akses Gagal NonQuery")
Exit Sub
End If
Cmd = New SqlCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class