Acho que tem que colocar um espaço entre o value e os parenteses: SQL = "insert into Movimentacao (Cod_Movimentacao, Cod_Atividade, Usuario, DataEntrada, DataSaida, DataCadastro," & _
"Emp_Responsavel) values ('" & _
cont & "','" & _
Atividade & "','" & _
txtMatricula.Text & "','" & _
mskDataEntrada.Text & "','" & _
mskDataSaida.Text & "','" & _
lblData.Caption & "','" & _
cboEmpregado.Text & "')"
db.Execute (SQL)