مشكلة كود الأتصال - نسخة قابلة للطباعة

كود :
Imports System.Data.SqlClient

Imports System.Data

Public Class RemotAcsessLeyr



    Public SqlConn As SqlConnection



    Public Sub New()



        SqlConn = New SqlConnection("Data Source=.;Initial Catalog=COP_DAT;Integrated Security=True")

    End Sub



    Public Sub Open()

        If SqlConn.State <> ConnectionState.Open Then

            SqlConn.Open()

        End If



    End Sub



    Public Sub Clos()

        If SqlConn.State = ConnectionState.Open Then

            SqlConn.Close()

        End If



    End Sub



    Public Function SelectData(ByVal StrodProstger As String, ByVal Param As SqlParameter()) As DataTable

        Dim Dt As New DataTable()



        Dim Da As New SqlDataAdapter()

        Dim Sqlcmd As New SqlCommand()

        Sqlcmd.CommandType = CommandType.StoredProcedure

        Sqlcmd.CommandText = StrodProstger

        If Param IsNot Nothing Then

            For i As Integer = 0 To Param.Length + 1

                Sqlcmd.Parameters.Add(Param(i))

            Next

        End If

        Da.Fill(Dt)

        Return Dt

    End Function



    Public Sub SendData(ByVal StrodProstger As String, ByVal Param As SqlParameter())

        Dim Sqlcmd As New SqlCommand()



        Sqlcmd.CommandType = CommandType.StoredProcedure

        Sqlcmd.CommandText = StrodProstger

        Sqlcmd.Connection = SqlConn

        If Param IsNot Nothing Then

            Sqlcmd.Parameters.AddRange(Param)

        End If

        Sqlcmd.ExecuteNonQuery()



    End Sub





End Class