Tieni presente che è molto personalizzato.

'***eliminazione dati tabella stampaschedine***
Dim sql As String
sql = "DELETE FROM stampaschedine"
Dim MysqlCmd1 As New MySqlCommand(sql, db)
MysqlCmd1.ExecuteNonQuery()
'----------------------------------------------
MySqlCmd.CommandText = "SELECT * FROM gestcliente WHERE codice='" & Me.Label9.Text & "'" & "ORDER BY codice,progschedina,cod_alloggiato,cognome,nome"
MySqlDrd_1 = MysqlCmd.ExecuteReader
While MySqlDrd_1.Read = True
Try
Dim sql1 As String
sql1 = "INSERT INTO stampaschedine(codice,data_elaborazione,progschedi na,tipo_alloggiato,data_arrivo,cognome,nome,sesso, data_nascita,luogo_nascita,comune_nascita,prov_nas cita,cittadinanza,luogo_residenza,prov_residenza,s tato_residenza,documento,ndoc,luogo_doc,stato_doc) VALUES ('" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("codice" )) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("data_el aborazione")) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("progsch edina")) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("tipo_al loggiato")) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("data_ar rivo")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "cognome")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "nome")), "'", "''") & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("sesso") ) & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("data_na scita")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "luogo_nascita")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "comune_nascita")), "'", "''") & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("prov_na scita")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "cittadinanza")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "luogo_residenza")), "'", "''") & "','" & MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal("prov_re sidenza")) & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "stato_residenza")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "documento")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "ndoc")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "luogo_doc")), "'", "''") & "','" & Replace(MySqlDrd_1.GetValue(MySqlDrd_1.GetOrdinal( "stato_doc")), "'", "''") & "')"
Dim MySqlcmd2 As New MySqlCommand(sql1, db)
MySqlcmd2.ExecuteNonQuery()
Catch
MsgBox(Err.Description, MsgBoxStyle.Critical, "Hotel Manager")
End Try
End While
MySqlDrd_1.Close()