[vb6] query che non va

[ciro78]

Allora il mio scopo è quello di visualizzare un campo del database in una casella di testo impostando una query

Private Sub Form_Load()
Data1.RecordSource = "select name from publishers"
Text1.DataSource = "Data1"
Text1.DataField = "Name"
End Sub

tramite il pannello id controllo indico al comando data dove è il databse
non mi funziona come mai???