Error en lector comandos.ExecuteReader

[devilman_ikaro_22]

hola amigos ando haciendo un login para multiusuarios en postgrest y visual basic 2012 y mesale un error en
lector =comandos.ExecuteReader( me dice que no existe la relacion con la tabla ingreso)

este es el codigo

Código vb:

Imports System.Data.Odbc
Public Class Frmloginacces
    Dim conexion As New Odbc.OdbcConnection("DSN=hospital")
    Dim comandos As New Odbc.OdbcCommand
    Dim adaptador As New Odbc.OdbcDataAdapter
    Dim lector As OdbcDataReader
    
 
    Private Sub Frmloginacces_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
    Private Sub limpiar()
        txtusuario.Clear()
        txtcontraseña.Clear()
        txtusuario.Focus()
 
 
    End Sub
 
 
 
    Dim consulta As String
 
    Private Sub btningresar_Click(sender As Object, e As EventArgs) Handles btningresar.Click
        conexion.Open()
        consulta = "SELECT * FROM ingreso WHERE  usuario ='" & txtusuario.Text & "' AND contraseña= '" & txtcontraseña.Text & "'"
        comandos = New Odbc.OdbcCommand(consulta, conexion)
        adaptador.SelectCommand = comandos
        lector = comandos.ExecuteReader
 
        If lector.HasRows = True Then
 
            Form2.Show()
            Me.Hide()
            limpiar()
        Else
            MsgBox("usuaario incorrecto")
            limpiar()
 
 
 
        End If
 
 
    End Sub
 
 
    Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
        conexion.Close()
        End
 
 
    End Sub
End Class
 

porfavor alguien me puede ayudar