Function Konekcija()
Dim con As ADODB.connection
Dim Host As String, DbIme As String, DbUser As String, DbPass As String
Dim Rs As New ADODB.Recordset

Host = "Localhost"
DbIme = "imebaze"
DbUser = "Imekorisnika"
DbPass = "sifra"
Set con = New ADODB.connection


con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Host & ";DATABASE=" & DbIme & ";USER=" & DbUser & ";PASSWORD=" & DbPass & ";"
con.CursorLocation = adUseClient

con.Open
Rs.Open "SELECT * FROM ImeTabele", con
End Function