Dim strConnection As String = _
            "Data Source = SERER; Initial Catalog = DATABASE;" _
            & "User ID = sa; Password = bla-bla-bla"
        Dim cn As SqlConnection = New SqlConnection(strConnection)
        Dim strSelect As String = _
            "EXEC dbo.sproc_Monkey '" _
            & cboMyCombobox1.Text & "', '" _
            & cboMyCombobox2.Text & "'"
        Dim dscmd As New SqlDataAdapter(strSelect, cn)
        Dim ds As New DataSet()
        Debug.Print(strSelect)
        cn.Open()
        dscmd.Fill(ds, "Data")
        cn.Close()
        'и например
        Me.DataGridView1.DataSource = ds.Tables("Data")