How can I use where function using insert into module

You havent said what the error is, it could be something to do with Disconnect, but I suspect it is a SQL syntax error because INSERT doesnt use a WHERE (you are inserting new data).

Here is a way to use params to make the code easier to read and avoid SQL injection attacks:

Dim SQL As String = "INSERT INTO alamnotice (correctivePreventive,
             sectionInCharge, shiftInCharge, SectionHead, status, 
             dateResponded, remarksSurrendingAlarm, Remarks) 
             VALUES ("@p1", "@p2", "@p3", "@p4", "@p5", "@p6", "@p7", "@p8")"

' I am assuming OleDB, but much the same for others
'    be sure to add the values in the same order with OleDB
Using cmd As New OleDbCommand(SQL, dbCon)
  cmd.Parameters.AddWithValue("@p1", txtcorPrevAction.Text )
  cmd.Parameters.AddWithValue("@p2", txtCause.Text)
  cmd.Parameters.AddWithValue("@p3", cmbstatus.Text)
  ' etc

  cmd.ExecuteNonQuery()
End Using

for non string columns, such as a date, convert the textbox text:

cmd.Parameters.AddWithValue("@pX", COnvert.ToInt32(txtSomeValue.Text))

the code is easier to read and if you arent gluing ticks and stuff into a string, there are far fewer string format errors like a missing '