[02/03] stored proc problem

[Ddans]

I have a vb program that adds data into an Access Database. The query for this add works perfectly, but for some reason I can't get it to link to my program correctly. My break is comming on the ".executenonquery()", which leads me to believe its a query problem, but I don't see how thats possible if it works in Access...Here is the code, thanks for any help.
Code in my module that i call

Public Sub AddMember(ByVal storedProc As String)
        Dim spName As String
        Dim cmd As New OleDbCommand
 
        odaMembers.SelectCommand = New OleDb.OleDbCommand
        spName = storedProc
        cnnAggieSatMembers.Open()
 
        With odaMembers.SelectCommand
            .CommandType = CommandType.StoredProcedure
            .CommandText = spName
 
            .Parameters.Add("@spLastName", OleDbType.VarChar, 25).Value = frmMain.txtNewLastName.Text
            .Parameters.Add("@spFirstName", OleDbType.VarChar, 25).Value = frmMain.txtNewFirstName.Text
            .Parameters.Add("@spPhone", OleDbType.VarChar, 25).Value = frmMain.txtNewPhone.Text
            .Parameters.Add("@spEmail", OleDbType.VarChar, 50).Value = frmMain.txtNewEmailAddress.Text
            .Parameters.Add("@spClass", OleDbType.VarChar, 10).Value = frmMain.txtNewClass.Text
            .Parameters.Add("@spexpectedgraduation", OleDbType.VarChar, 25).Value = frmMain.txtNewExpectedGraduation.Text
            .Parameters.Add("@spMajor", OleDbType.VarChar, 25).Value = frmMain.txtNewMajor.Text
 
            .Connection = cnnAggieSatMembers
            .ExecuteNonQuery()
        End With
        cnnAggieSatMembers.Close()
    End Sub

Code from my form

Private Sub btnNewMember_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewMember.Click
        Dim spLastName As String
        Dim spFirstName As String
        Dim spPhoneNumber As String
        Dim spEmail As String
        Dim spClass As String
        Dim spExpectedGraduation As String
        Dim spMajor As String
        Dim spName As String
 
        Call AddMember("spAddMember")
        odaMembers.SelectCommand = New OleDb.OleDbCommand
 
        Try
            cnnAggieSatMembers.Open()
            spName = "spSearchAll"
            dsMembers.Clear()
 
            With odaMembers.SelectCommand
                .CommandType = CommandType.StoredProcedure
                .CommandText = spName
                .Connection = cnnAggieSatMembers
            End With
 
            odaMembers.Fill(dsMembers, "myTable890")
            dgResults.DataSource = dsMembers.Tables("myTable890")
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cnnAggieSatMembers.Close()
        GRBNewMemberINFO.Visible = False
 
        txtNewLastName.Text = ""
        txtNewFirstName.Text = ""
        txtNewEmailAddress.Text = ""
        txtNewPhone.Text = ""
        txtNewClass.Text = ""
        txtNewMajor.Text = ""
        txtNewExpectedGraduation.Text = ""
        btnSearchMember.Focus()
 
    End Sub