grazie per il consiglio.. avevo già provato un controllo simile...
e la connessione alla messagebox effettivamente è = 0


MA QUANDO TENTA DI APRIRE LA CONNESSIONE
MI DA' ERRORE SU Objconnessione.connessione.Open()

E MI DICE "La proprietà ConnectionString non è stata inizializzata."

TI POSTO IL CODICE


CLASSE DATI
sulla funzione query ho inserito come mi hai detto :

If Objconnessione.connessione.State <> 1 Then

Objconnessione.connessione.Open()

read = command.ExecuteReader

dove objconnessione =
dim objconnessione as New LoginForm1

LOGINFORM1.FRM
in LoginForm1 ho la stringa di connessione disposta così:

' al evento pulsante OK imposto user e password
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

m_user = txtUser.Text
m_password = txtPassword.Text

'chiamo la sub prepara connessione
PreparaConnessione()
Me.Close()

End Sub

Public Sub PreparaConnessione()

Dim valore As New FrmMain

connessione = New OdbcConnection
Try

connessione.ConnectionString = "Dsn=" & valore.valore & ";Uid=" & m_user & ";Pwd=" & m_password
connessione.Open()

Catch ex As Exception

MessageBox.Show(" Errore di connessione al Database. Controllare i settaggi dell' ODBC ", "Error Database Comunication", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try

End Sub