Call Koneksi()
            str = "update initial set shift='7',station='" & TextBox4.Text & "',shift='" & TextBox5.Text & "', where tanggal=curdate()"
            CMD = New MySql.Data.MySqlClient.MySqlCommand(str, conn)
            CMD.ExecuteNonQuery()