error en el query

[rikimm]

tengo error en el query en el siguiente codigo me dice que mi erro esta en el insert
poque lo tengo mal si esta bien definido

Código vb:

If TextBox1.Text = "Nombre" Or TextBox2.Text = "Nombre 2" Or TextBox3.Text = "Apellido" Or TextBox4.Text = "Apellido2" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then
            MessageBox.Show("No has metido los datos correctos", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        Else
            Dim nom, Snom, ape, Sape As String
            Dim dd, mm, aaaa As String
            Dim usuario, pass As String
            Dim status As String
            Dim x As String
            nom = TextBox1.Text(0)
            Snom = TextBox2.Text(0)
            ape = TextBox3.Text(0)
            Sape = TextBox4.Text(0)
            dd = TextBox5.Text
            mm = TextBox6.Text
            aaaa = TextBox7.Text(2) + TextBox7.Text(3)
            usuario = nom + Snom + ape + Sape + aaaa.ToString()
            pass = aaaa.ToString() + mm.ToString() + dd.ToString() + Snom + ape
            status = ComboBox1.Text
            Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\riki\Documents\Visual Studio 2008\Projects\SistemaDP\SistemaDP\bin\Debug\doggyp.mdb")
            Dim ds As New OleDbCommand
            Dim sql As String
            cnn.Open()
            ds.Connection = cnn
            ds.CommandType = CommandType.Text
            sql = "INSERT INTO Usuarios(pass,estatus,user)"
            sql = sql + "Select '" & pass & "','" & status & "','" & usuario & "';"
            ds.CommandText = sql
            x = ds.ExecuteNonQuery()