Utilizing Stored procedure parameters in VBA

[nockvb]

I have Userform that does manupulate a spreadsheet by reading the column titles and rows of the cells to add or edit the values. What I want to do now is modify this so I can pass in the parameters with the text box with a stored procedure that looks into a data file in a spreadsheet.

Here is how I have it working:

The text Fileds are: ID, Name, Title

The first text box has this code:

    Private Sub TextBox1_Change()  
    GetData  
    End Sub

The commandButtons have these codes:

Private Sub CommandButton1_Click()  
    EditAdd  
    End Sub

    Private Sub CommandButton2_Click()
    ClearForm
    End Sub

    Private Sub CommandButton3_Click()
    Unload Me
    End Sub

NOW THE Functions and Subs

Dim id As Integer, i As Integer, j As Integer, flag As Boolean 
    Sub GetData()

    If IsNumeric(UserForm1.TextBox1.Value) Then  
     flag = False  
     i = 0  
     id = UserForm1.TextBox1.Value  


     Do While Cells(i + 1, 1).Value <> ""

         If Cells(i + 1, 1).Value = id Then
             flag = True
             For j = 2 To 3
                 UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
             Next j
         End If

         i = i + 1

     Loop

     If flag = False Then
         For j = 2 To 3
 UserForm1.Controls("TextBox" & j).Value = ""
         Next j
     End If

    Else  
     ClearForm  
    End If

    End Sub 
 
    Sub ClearForm()  

    For j = 1 To 3 
     UserForm1.Controls("TextBox" & j).Value = ""  
    Next j  

    End Sub 
 

    Sub EditAdd() 
    Dim emptyRow As Long

    If UserForm1.TextBox1.Value <> "" Then  
     flag = False  
     i = 0  
     id = UserForm1.TextBox1.Value  
     emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1  

     Do While Cells(i + 1, 1).Value <> ""  
 
         If Cells(i + 1, 1).Value = id Then  
             flag = True  
             For j = 2 To 3  
                 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value  
             Next j  
         End If  

         i = i + 1  

     Loop  

     If flag = False Then  
         For j = 1 To 3  
             Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value  
         Next j  
     End If  

    End If  

    End Sub

THE STORED PROCEDURE THAT WILL CREATE THE TABLE VALUES IN THE SPREADSHEET:

Select ID, Name, Title From Employees