Public Sub CreateSqlConnection()
        Dim nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;" & _
                                                         "Initial Catalog=DIA_BASE")
        Dim sqlc As SqlCommand
 
        nwindConn.Open()
        sqlc = New SqlCommand
        sqlc.Connection = nwindConn
        sqlc.CommandText = "FIRM_DIAGNOSTIC"
        sqlc.CommandType = CommandType.StoredProcedure
        Dim oinputpar1 As SqlParameter = sqlc.Parameters.Add("@firm", SqlDbType.Int)
        Dim oinputpar2 As SqlParameter = sqlc.Parameters.Add("@typ", SqlDbType.Int)
        oinputpar1.Value = "5"
        oinputpar2.Value = "1"
        Dim wert As System.Data.sqlClient.SqlDataReader
        Dim mas(100, 200) As Decimal, Y As Integer = 0, l As Integer
 
        wert = sqlc.ExecuteReader(CommandBehavior.CloseConnection)
 
 
 
 
 
        While wert.Read()
            Y = Y + 1
            mas(0, Y) = wert(1)
 
           MsgBox(mas(0, Y)) ' отображаю значение внесенное в массив
        End While
 
 
 
 
        wert.Close()
        nwindConn.Close()
 
 
 
 
        nwindConn.Close()
 
    End Sub 'CreateSqlConnection