Modul koneksi vb dan sql

Untuk mengkoneksikan database sql server ke vb. net 2010 buatlah module dengan nama koneksi. script module koneksi ada di bawah ini :

Imports System.Data.SqlClient
Module Module1
Public CONN As SqlConnection
Public STR As String
Public DA As SqlDataAdapter
Public DS As New DataSet
Public CMD As SqlCommand
Public DR As SqlDataReader
Sub KoneksI()



STR = "Data Source=win7\SQLSERVER;Initial Catalog=namadatabase;Integrated Security=True"
CONN = New SqlConnection(STR)
If CONN.State = ConnectionState.Closed Then
CONN.Open()
End If
End Sub
End Module