Visual Basic.NET - Problemas al Insertar

Hola a todos:
Tengo una consulta que hacerles, he tratado de hacer una inserción por medio de SQL pero tengo problemas al hacerlo me lanzaz el siguente error: "Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll", el códgio que utilizo es el siguiente : Public Sub agregar(ByVal nombre, ByVal apellido, ByVal rut, ByVal telefono, ByVal direccion)
Dim consulta As New OleDbCommand()
Dim conectar As OleDbConnection
conectar = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=C:\Bd exalumnos seminario.mdb")
consulta.CommandType = CommandType.Text
consulta.CommandText = "insert into tabla1(nombre, apellido, rut, telefono, direccion) values (@nombre, @apellido, @rut, @telefono, @direccion)"
consulta.Parameters.Add("@nombre", OleDbType.VarChar, 30, "Nombres")
consulta.Parameters.Add("@apellido", OleDbType.VarChar, 30, "Apellidos")
consulta.Parameters.Add("@rut", OleDbType.VarChar, 15, "rut")
consulta.Parameters.Add("@telefono", OleDbType.Integer, 6, "fono1")
consulta.Parameters.Add("@direccion", OleDbType.VarChar, 50, "direccion")
consulta.Connection = conectar
consulta.Connection.Open()
consulta.ExecuteNonQuery() ' Aquí me tira el error, justo en esta línea
conectar.Close()
End Sub

Bueno ojalá que alguno de ustedes tenga experiencia en esto y me pueda ayudar. El problema es en la línea que dice "consulta.ExecuteNonQuery()".
Sin mas que agregar me despido y espero que me ayuden...por favor cualquier aporte me sirve.

Bueno, mi amigo, tu tratas de hacer la insercion de una manera dificil y errona, te tengo una mucho mas facil y rapida y es la que utilizo en mis aplicaciones por ejemplo para adicionar datos en una tabla de clientes
declarar libreria
Imports System.Data.OleDb

'aqui viene la parte interesante

Try

'actualizando la base de Datos
Dim insertar As String = "insert into Clientes(IdCliente,NombreContacto,NombreCompañía,CargoContacto,Dirección,Ciudad,CódPostal,País,Teléfono,Fax,LimiteCredito,Comentario)Values" & _
"('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "'," & _
"'" & TextBox9.Text & "','" & TextBox10.Text & "'," & Val(TextBox12.Text) & ",'" & TextBox13.Text & "')"
Dim Comando As New OleDbCommand(insertar, oleconexion)
Comando.ExecuteNonQuery()
dsgeneral.Clear()
DAclientes.Fill(dsgeneral, "Clientes")
Catch
MsgBox(Err.Description & Err.HelpFile, MsgBoxStyle.OKOnly)
'en caso de algun error que borre la fila que se esta agregando
'
End Try