Dim conn As OleDbConnection  

Dim cmd As OleDbCommand  

Dim dtr As OleDbDataReader 
            
conn = New OleDbConnection()

conn.ConnectionString = ConfigurationManager.ConnectionStrings("cnnSet").ConnectionString

cmd = New OleDbCommand() 

cmd.CommandText = "SELECT * FROM [TblSetEmail] WHERE (([Tipologia] = ?) AND ([mostra] = ?))"

cmd.CommandType = CommandType.Text

cmd.Connection = conn
           
cmd.Connection.Open()
            
dtr = cmd.ExecuteReader()
            
While dtr.Read()
   txtSmtpServer = dtr("SmtpServer")
End While
            
dtr.Close()
conn.Close()

<add name="cnnSet" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\GestioneSet.mdb;Persist Security Info=True" providerName="System.Data.OleDb"/>