If Txt_Id.Text = between "01" and "05" Then
sqlSave = "INSERT INTO BK_LEVEL_R(BLR_ROOM_LEVEL,BLR_LEVEL_NAME,BLR_NUMROOM) VALUES( '" & Txt_Id.Text & "','" & Txt_Name.Text & "','" & txt_num.Text & "') "
tempshowrecord = Val(Txt_Id.Text.ToString)
cmd = New OleDbCommand(sqlSave, OBCon)
cmd.ExecuteNonQuery()
End If