SoloCodigo

Hola q tal...
Buenos días necesito su ayuda chicos,  he creado una aplicación en visual basic 2005 y he creado este código para realizar una búsqueda:

Function Buscar_registro(ByVal xNick As String) As Boolean
        Dim Nick As String
        Nick = (xNick)

        Dim conexion As New OleDbConnection
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\\Users\\Adri\\Documents\\BibliotecaMultimedia.mdb; Persist Security Info = False"

        Dim cadenaSql As String = "SELECT * FROM Usuario WHERE Nick = " & Nick

        Dim Adactador As New OleDbDataAdapter(cadenaSql, conexion)

        Dim Ds As New DataSet

        conexion.Open()
        Adactador.Fill(Ds)
        conexion.Close()

        If (Ds.Tables(0).Rows.Count = 0) Then

            Return False
        Else
            Tex_Nombre.Text = Ds.Tables(0).Rows(0)("Nombre").ToString()
            Return True
        End If
    End Function



al momento de correr la aplicación me da un error en: ADAPTADOR:FILL(Ds) me dice que no se han especificado valores para algunos de los parámetros requeridos... agradeceria muchisimo su ayuda esto es muy importante es para mi tesis que es en 1 semana...

Hola q tal...
Buenos días necesito su ayuda chicos,  he creado una aplicación en visual basic 2005 y he creado este código para realizar una búsqueda:

Function Buscar_registro(ByVal xNick As String) As Boolean
        Dim Nick As String
        Nick = (xNick)

        Dim conexion As New OleDbConnection
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\\Users\\Adri\\Documents\\BibliotecaMultimedia.mdb; Persist Security Info = False"

        Dim cadenaSql As String = "SELECT * FROM Usuario WHERE Nick = " & Nick

        Dim Adactador As New OleDbDataAdapter(cadenaSql, conexion)

        Dim Ds As New DataSet

        conexion.Open()
        Adactador.Fill(Ds)
        conexion.Close()

        If (Ds.Tables(0).Rows.Count = 0) Then

            Return False
        Else
            Tex_Nombre.Text = Ds.Tables(0).Rows(0)("Nombre").ToString()
            Return True
        End If
    End Function



al momento de correr la aplicación me da un error en: ADAPTADOR:FILL(Ds) me dice que no se han especificado valores para algunos de los parámetros requeridos... agradeceria muchisimo su ayuda esto es muy importante es para mi tesis que es en 1 semana...