Problema numero 1 come faccio a caricare la combo?Mi dà errore mi
carica solo l'ultimo!!!!


Dim dbRec As New ADODB.Recordset
Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String

g_strConnectionString = "maia"


'Apro una connessione con il database
dbConn.ConnectionString = g_strConnectionString

dbConn.Open


strSQL = "SELECT NomeStrumento FROM Strumenti "

DoEvents
Set dbRec = dbConn.Execute(strSQL)
Do While dbRec.EOF = False
---------> DBcmbStrumento.BoundText=dbRec("NomeStrumento") ----->
dbRec.MoveNext
Loop
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing

End Sub




Problema numero 2 una volta caricata la combo, seleziono un elemento
della combo e riempio le text Marca,Modello,Serie
Sull'evento click vado a salvare nel database.
Problema: come vedete metto il contenuto delle mie text in delle
variabili per la mia dbCombo devo fare così:
iStrumento=DBcmbStrumento.BoundText;
poi in strSQL che sotto ho dichiarato devo mettere la mia query
di inserimento come devo fare la stringa? Questi vanno a finire in una stringa in questa tabella


tabella nome: dettagli
campi
ID_Dettagli
Marca
Modello
Serie
ID_Strumento



Private Sub cmdSalva_Click()
Dim dbConn As New ADODB.Connection
Dim strConnectionString As String
Dim strSQL As String

Dim iMarca,iModello,iSerie As String
iMarca=txtMarca.textbox
iModello=txtModello.textbox
iSerie=txtSerie.textbox

g_strConnectionString = "maia"
'Apro una connessione con il database
dbConn.ConnectionString = g_strConnectionString

dbConn.Open
DoEvents
dbConn.Execute strSQL
MsgBox ("Dati inseriti")
dbConn.Close
Set dbConn = Nothing

End Sub