validar un dato en base de datos

[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