Public Sub Connectdb(Path$)
On Error GoTo errH:
Dim strSQL$
Dim StrConn$
Set conn = New ADODB.Connection
Path = Replace(Path, "\", "\\")
 
StrConn = ("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & Path & _
  ";Extensions=asc,csv,tab,txt;")
conn.Open StrConn
(...)
 
Function GetCountrybyIP(ByVal IP$, ByRef CountryCode As String, ByRef picPath _
  As String)
(...)
 
strSQL = "SELECT * FROM ipcountry.csv WHERE ipfrom <= " & IPCode & " AND ipto" & _
  ">= " & IPCode
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
DoEvents
rs.Open strSQL, conn
If Not rs.EOF Then
    CountryCode = rs.Fields(2)
    picPath = App.Path & "\flags\" & CountryCode & ".gif"

---------------------------------------
On error goto ... HELL !