Private Sub Combo1_Click()
Dim str As String
str = Combo1.List(Combo1.ListIndex)
Adodc1.RecordSource = str
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
If str = "STAZIONI" Then
Text1.DataField = "IDStz"
Text2.DataField = "LottoID"
Text3.DataField = "StzNomeTab"
Text1.DataMember = "STAZIONI"
Text2.DataMember = "STAZIONI"
Text3.DataMember = "STAZIONI"
Else
Text4.DataField = "IDStz"
Text5.DataField = "IDAna"
Text6.DataField = "ADSns"
End If
End Sub



Private Sub Form_Load()
Combo1.AddItem "MIS_ANALOGICHE"
Combo1.AddItem "STAZIONI"


Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\VB98\tesi dataview\Cnf.mdb"
Adodc1.ConnectionString = cn.ConnectionString


End Sub



L'errore e'

unable to build the field or DataMember:'ADSns'

anche usando il data control mi da lo stesso errore, come posso risolvere ?
In pratica cio che voglio è che tramite il combo1 l'utente scelga la tabella da voler visualizzare nel datagrid1 per poi aggiungere o midificare campi tramite i txt
C'è una soluzione migliore? che eviti il problema ?
Grazie