validar un dato en base de datos

[guillebomtrasmiti]

Hola amigos, tengo una tabla dónde guardo un password para que el usuario al introducirlo el programa evalue si es el correcto o no, por este motivo he echo esto;

Public Sub clave()
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

Try
com.CommandType = CommandType.Text
com.CommandText = "SELECT Password From Clave Where Password = ('" & TextClave.Text & "')"

adapt.SelectCommand = com
adapt.Fill(setda, "Clave")

'aquí cargo el datasource y el datamenber del datagrid

Catch
MsgBox("Compruebe sus datos", MsgBoxStyle.Information, "Aviso GesDreamtPos")
End Try
End Sub


pero ahora no se como hacer un if dónde diga si la clave es correcta haz esto si no esto otro....alguna idea?

[guillebomtrasmiti]

Public Sub guardar()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

'Try
Dim comados = conexion.CreateCommand

comados.CommandText = "INSERT INTO Clave (Password)" _
+ "values (@Cod)"
'"SELECT @@Identity"

'Dim Id As OleDbParameter
Dim cod As OleDbParameter

cod = New OleDbParameter("@Cod", OleDbType.WChar) '(@cod)

cod.Value = Me.TextClaveN.Text

comados.Parameters.Add(cod)

conexion.Open()
comados.ExecuteNonQuery()
conexion.Close()
' Catch
' End Try
Return
seleccionar()

End Sub

alguien sabe por que aquí me da error de sintaxis?¿? en la instrucción insert into?¿?...disculpar dos preguntas en un mismo post

[Aquaventus]

Hola guille no entiendo lo que deseas hacer... una evaluacion o un insert? , si es por el primero... tu tabla clave que campos tiene?

[guillebomtrasmiti]

holaaa aquaa, la tabla clave tiene un campo ID autonumerico y otro password...nada más, necesito insertar un nuevo password y me salta el error

[guillebomtrasmiti]

me sucede algo raro, tengo dos bases de datos de la aplicación, antiguamente programaba con la base de datos en una carpeta y ahora lo hago desde otra, sucede que si elimino alguna de las dos me da error de que no la encuentra...da igual cual borre la de la carpeta vieja o la de la nueva, me dice que no la encuentra, me obliga a tener las dos bases de datos...y el error al guardar viene por ahí:::

[guillebomtrasmiti]

ya se cual es el problema tengo un formulario que no se cierra y me deja la conexión abierta en la base de datos, curiosamente si le pongo me.close en vez de cerrarse el formulario ese me cierra el siguiente que era el que quería abrir