Hola bakunos, necesito de su ayuda para conectar una base de datos que esta hecha en sql server 2008 , el archivo conector es un .vb este es el codigo:

BD.vb

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

Public class BD

Public Shared _conexion As SqlConnection

Public Shared Property Conexion() As SqlConnection
Get
If _conexion Is Nothing Then
_conexion = New SqlConnection("Data
Source=nombre_server;Initial Catalog=ecommerce;Persist Security
Info=True; user ID=usuario;Password=pwd")
End If
Return _conexion
End Get
set(ByVal value As SqlConnection)
_conexion = value
End set
End Property

Public Sub New()
End Sub

public Shared Sub Abrir()
If Conexion.State <> ConnectionState.Open Then
Conexion.open()
End If
End Sub

Public Shared Sub Cerrar()
If Conexion.State <> ConnectionState.Closed Then
Conexion.Close()
End If
End Sub

Public Shared Sub ExecuteNonQuery(ByVal cmd As String
Abrir()
Dim com As New SqlCommand(cmd, Conexion)
com.executeNonQuery()
Cerrar()
End Sub

Public Shared Sub ExecuteNonQuery(ByVal cmd As SqlCommand)
Abrir()
cmd.Connection = Conexion
cmd.ExecuteNonQuery()
Cerrar()
End Sub

Public Shared Function ExecuteScalar(ByVal cmd As String) As Object
Abrir()
Dim com As new SqlCommand(cmd, Conexion)
Return com.ExecuteScalar()
Cerrar()
End Function

Public Shared Funtion ExecuteScalar(ByVal cmd As Sqlcommand) As
Object
Abrir()
cmd.Connection = Conexion
Return cmd.ExecuteScalar()
Cerrar()
End Function

Public Shared Function Execute(ByVal cmd As String) As DataTable
Dim comando As New SqlCommand(cmd, Conexion)
comando.Connexion = Conexion
Dim adap As New SqlDataAdapter(comando)
Dim dt As New DataTable
adap.Fill(dt)
Return dt
End Function

Public Shared Function Execute(ByVal cmd As SqlCommand) As DataTable
cmd.Connection = Conexion
Dim adap As New SqlDataAdapter(cmd)
Dim dt As New DataTable
adap.Fill(dt)
Return dt
End Function
End Class


help!