Codes Modification

[tqmd1]

Dear Experts

str = "Select * from gpass where vou_no= " & Val(Me.txtGat.Text) And Date =  Me.txtDat.Text

what is wrong in codes, please modify

Dim cmd As New SqlClient.SqlCommand("update gpass set c=@c, bno=@bno, code=@code, vehicle_no=@vehicle_no,trasportr=@transportr,time=@time where vou_no =  & Val(Me.txtGat.Text) and Date = me.txtdat.text)", con)

what is wrong in codes, please modify