Ciao ragazzi
sto effettuando un programma per ottici, dove attualemte uso come database Access 2000 per piccoli dati.
Ma per quanto riguarda le "note clienti" uso un RichTextBox1...vi faccio un esempio:

Private Sub Aggiungi()
Dim DB As ADODB.Connection
Dim T As ADODB.Recordset
Dim strCnn As String
Set DB = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\OptikForm\DBase.mdb"
DB.Open strCnn
Set T = New ADODB.Recordset
T.LockType = adLockOptimistic
T.Open "SchedaLacCliente", DB, , , adCmdTable
T.AddNew
T("Cognome") = txt(0).Text 'per Access
T("Nome") = txt(1).Text 'per Access
T("Indirizzo") = txt(2).Text 'per Access
....
....
Dim FileNum As Integer 'per .txt
Dim FileName As String 'per .txt
FileName = "C:\OptikForm\Img\Note_Clienti\" _ 'per .txt
& Lac.txt(0).Text & ".txt" 'per .txt
FileNum = FreeFile() 'per .txt
Dim strCL1 As String 'per .txt
strCL1 = Lac.RichTextBox1.Text 'per .txt
Open FileName For Output As #FileNum 'per .txt
Write #FileNum, strCL1 'per .txt
Close #FileNumitta") = txt(3).Text 'per .txt
End Sub

Fin qui tutto bene, ma è quando voglio cercare la scheda del cliente
non riesco a trovare nessun codice per ripescare il .txt salvato.
Faccio un esempio:

Private Sub Cerca()
Dim DB As ADODB.Connection
Dim T As ADODB.Recordset
Dim strCnn As String
On Error Resume Next
Set DB = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\OptikForm\DBase.mdb"
DB.Open strCnn
Set T = New ADODB.Recordset
T.LockType = adLockOptimistic
T.Open "SchedaLacCliente", DB, , , adCmdTable
T.Find "Nome = '" & ListNomiAnagraficaLac.Text & " '"
txt(0).Text = T("Cognome") 'per Access
txt(1).Text = T("Nome") 'per Access
txt(2).Text = T("Indirizzo") 'per Access
...
...
...
QUALE è IL CODICE PER CERCARE IL FILE RIGUARDANTE LE "NOTE CLIENTE"
SALVATO CON RichTextBox1 NEL DATABASE "C:\OptikForm\Img\Note_Clieti\"
quando clicco nella List1?
Spero di essere stato abbastanza chiaro
Ciao a tutti
Claudio