De Esta lista cuales son los (statements) SQL  Los basico son select,insert into,delete,update

Saludos  Tengo un problemita no puedo resolver  cada vez  que modifico algo en la base de datos me dice

Syntax error (missing operator) in query expression '' Productos Lacteos'  WhereIdProducto=Val(1)'.

Intente ponerle cochetes pero todavia sale el error  creo que el error es categoria pero no se como

PrivateSubBtnGuardar_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesBtnGuardar.Click
IfTxtIdProducto.Text = ""Then
'Agrego un registro nuevo
            Almacenar("Insertinto Productos (Nombre, Cantidad, Precio, IdProveedor, Categoria) values ('" + TxtNombre.Text + "','" + MtbCantidad.Text + "', '" + MtbPrecio.Text + "', '" + MtbIdProveedor.Text + "','" + TxtCategoría.Text + "')")
Else
'Modifico un registro existente
            Almacenar("Update Productos set  Nombre='" + TxtNombre.Text + "', Cantidad='" + MtbCantidad.Text + "', Precio='" + MtbPrecio.Text + "', IdProveedor='" + MtbIdProveedor.Text + "',Categoria='" + TxtCategoría.Text + "' whereIdProducto=val(" + TxtIdProducto.Text + ")")
EndIf
RefrescarDatos()
 

ahora si gracias crack

---

Gracias a todos lo que dieron su aporte   

Dim f As Integer
 
        For Each Palabra As String In txtOración.Text.Split(" ")
            If Not Palabra = "" Then
                f= f + 1
            End If
        Next
        lblCantPalabras.Text = Z

como hago esta funcion para encontrar la primera palabra


textbox1.text.split(" ").first  esta  funcion me encuentra la palabra despues del espacio yo lo que quiero es cuando yo le multiple espacio que me sace la primera palabra que puse  ej:"" "" "" "" "" hola como estas  lblprimer=hola

tengo un textbox  con un boton


en ese boton tengo el lo siguiente

lblprimerpalabra=textbox.text.split(" ").first

solo me encuentra la primera palabra si le doy  espacio

yo quiero que cuando le doy a la tecla espacio primero y pongo la frase "hola como estas" que me salga en lblprimerpalabra = hola

como me explico que si no es una palabra que no me la presenta en el textbox de lblprimerpalabra

"Hola     Juan" (Hay 5 espacios)
"Hola","","","","","","Juan" Entonces hay habrian 2 palabras y descontaría cada "" que encuentre.

Hola  como estan mi gente


tengo una pregunta   sobre esta funcion quiero sacer la primera palabra de texto

ejemplo : hola como estas  la primera palabra de ese texto seria "hola"

este es mi codigo

 

texbox1.Text = H.Split(" ").First 

solo tengo una duda como hago  que si le doy doble espacio me sale la primera palabra

 un ejemplo espacio hola como estas que me salga "hola" 

Puedes usar Select Case KeyAscii

Ejemplo
Select Case KeyAscii
Case 97 to 122  'Son letras de mayuscula a minuscula
end select
 

Espero que me pueden ayudar  tengo datos en form1   y lo quiero pasar en el form2 como lo hago este es mi codigo

los datos me salen  pero sale uno de los 5 nombres con sus informaciones

Data1.Refresh
    Do While Data1.Recordset.EOF = False
        txtMatricula = Data1.Recordset!Matricula
        txtNombre = Data1.Recordset!Nombre
        txtDireccion = Data1.Recordset!Direccion
        txtEdad = Str(Data1.Recordset!Edad)
        txtCarrera = Data1.Recordset!Carrera
        Form3.lblMatricula = txtMatricula.Text
        Form3.lblNombre = txtNombre.Text
        Form3.lblDireccion = txtDireccion.Text
        Form3.lblEdad = txtEdad.Text
        Form3.lblCarrera = txtCarrera.Text
        Data1.Recordset.MoveNext
    Loop
    Form3.Show
End Sub
 

Tengo Un Base de datos con control data

hize el index en access 2010 y lo formatie a 2000

no se porque me sale  error si le puse el index A Codigo

Data1.Recordset.Index = "COD"
Data1.Recordset.Seek "=", COD
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset.Fields("Codigo") = txtcodigo
Data1.Recordset.Fields("Descripción") = txtdescripcion
Data1.Recordset.Fields("Aula") = txtaula
Data1.Recordset.Update
MsgBox ("Registro Agregado")
Call Limpiar
txtcodigo.SetFocus
Else
MsgBox ("Registro Exsitente")
 

Alguien puede decir por que me sale error    este codigo lo tengo en un solo commando cada vez que le doy me sale error

Private Sub Command2_Click()
Data1.Recordset.FindFirst ("Codigo='" & TXTCodigo & "'")
If Data1.Recordset.NoMatch = True Then
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update
MsgBox "Registro Adicionado"
Else
Data1.Recordset.Edit
MsgBox "Registro Editado"
Data1.Recordset.AddNew
Data1.Recordset!Codigo = TXTCodigo
Data1.Recordset!Descripcion = TXTDescripcion
Data1.Recordset!Aula = TXTAula
Data1.Recordset.Update