Please assist me with this code it given me error

mystring = "update Admission SET Disch_date= " & TextBoxdischdate.Text & " ,disch_time = " & TextBoxdischtime.Text & " ,Days_spent = " & TextBoxdays.Text & " ,Disch_Status= " & textboxstatus.Text & " where medical_Id = " & TextBoxid.Text & " and Adm_date =" & Date.Parse(TextBoxadmdate.Text) & ""


mycmd.CommandText = mystring
mycon.Open()
mycmd.ExecuteNonQuery()
mycon.Close()


it complain at mycmd.ExecuteNonQuery()

if the underlying database columns are varchar and datetime, then you are to send the values to the database enclosed in single quotes which you are not doing e.g ' " & texbox1.text & " ' "

you should enclose all your controls in single qoute as in '" & name=text1.text & "'

@Poster, first problem I see . . .  .You do not inform us exactly of what the compiler complaints were.

Secondly, you ought to be using parameterized queries by now. Even better, try to avoid inline SQL wherever you can instead. What you have up there is recipe for SQL Injection

Anyways, do post the actual error message and we can better help.

So many things is wrong with your query. First i think its easier and better to use parameterised query.
And use single quote for your values

Thanx, I have solved the problem with your posts

I have problem with this also, i have google it but no suitable solution

command.CommandText = "Select count(*) as nob from Admission where medical_id='" & txtmedid.Text & "' and disch_date IS NULL"
connection.Open()
command.ExecuteScalar()
If ("nob" > 1 Then

Label1.Text = "The Patient is currently on Admission, Discharge First "
Else

it complaining at If ("nob" > 1 Then pls assit me house, i'm teaching myself on vb.net

you cannot test the column name you are retrieving (nob) rather you should be testin the value the column retrieves try the following below

command.CommandText = "Select count(*) as nob from Admission where medical_id='" & txtmedid.Text & "' and disch_date IS NULL"
connection.Open()

dim value as long
value = Convert.ToInt32(cmd.ExecuteScalar())
if value > 1
Label1.Text = "The Patient is currently on Admission, Discharge First "
Else