hai provato ad inserire un parametro al costruttore
per la stringa di connessione?

oppure inserisci: Dim con As New OleDbConnection