Dim MyConnection As SqlConnection
    Dim MyCommand As SqlDataAdapter
    MyConnection = New SqlConnection("connection string")
    MyCommand = New SqlDataAdapter("",MyConnection)
    MyCommand.SelectCommand.CommandType = CommandType.StoredProcedure
    MyCommand.SelectCommand.Parameters.Clear
    MyCommand.SelectCommand.CommandText = "ClientGet"  --вызов ХП
 
    MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@Number", SqlDbType.VarChar,  20 )).Value =  1 
    MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@ClientID", SqlDbType.Float,  0 )).Value =  1 
    MyCommand.Fill(DS, "ClientGetResult")
 --дальше работай как обычно, DS.Tables("ClientGetResult").Rows()() .......