data type mismatch in criteria expression

Revision 1
m getting this error "data type mismatch in criteria expression" in the line oledbcom.executeNonQuery()

herz the code:
Imports System.Data.OleDb


Public Class Form1

Dim oledbconn As OleDbConnection
Dim oledbcom As OleDbCommand
Dim oledbreader As OleDbDataReader
Dim connectionString As String
Dim command As String
Dim cd As Integer








Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click


connectionString = "provider= Microsoft.Jet.OLEDB.4.0;Data source=Student.mdb"

oledbconn = New OleDbConnection(connectionString)
MsgBox("database connected")


End Sub

Private Sub fillreader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fillreader.Click

connectionString = "provider= Microsoft.Jet.OLEDB.4.0;Data source=Student.mdb"


command = "select * from personinfo"
oledbcom = New OleDbCommand(command, oledbconn)
Try
oledbreader = oledbcom.ExecuteReader()
If (oledbreader.Read()) Then
Txtroll.Text = oledbreader(0)
Txtname.Text = oledbreader(1)
txtemail.Text = oledbreader(2)
Txtphone.Text = oledbreader(3)
Txtpercentage.Text = oledbreader(4)
End If
Catch ex As Exception

End Try



End Sub

Private Sub close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close.Click


oledbconn.Close()
MsgBox("database disconnected")



End Sub

Private Sub insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert.Click

connectionString = "provider= Microsoft.Jet.OLEDB.4.0;Data source=Student.mdb"

oledbconn.Open()

command = "insert into personinfo values('&Txtroll.text&','&Txtname.text&','&Txtemail.text&','&Txtphone.text&','&cint(Txtpercentage.text)&')"
oledbcom = New OleDbCommand(command, oledbconn)
cd = oledbcom.ExecuteNonQuery()
MsgBox("data is entered in database")






End Sub

Private Sub Txtroll_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtroll.TextChanged

End Sub

Private Sub Txtname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtname.TextChanged

End Sub
End Class