this is way which i'm doing and it properly work
Private Sub ExecuteInsert(ByVal EmplID As String, ByVal RecDate As String, ByVal RecTime As String)
Dim con As New SqlConnection(GetConnectionString())
Dim com As SqlCommand = Nothing
Dim queryResult As Integer
con.Open()
com = New SqlCommand("Select COUNT (*) from Employee WHERE EmplID='" & TextBox1.Text & "'", con)
queryResult = com.ExecuteScalar()
con.Close()
If queryResult = 0 Then
MsgBox("id not exist")
Else
con.Open()
com = New SqlCommand("Insert into ARecord(EmplID,RecDate,RecTime,OperId,OperDate)Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','0','0')", con)
com.ExecuteNonQuery()
MsgBox("saved")
con.Close()
End If
End Sub