Last_Insert_ID

Jag har en databaskoppling som ser ut så här:

'Connectionstring to the db
'----------------------------------------------------------------------------------
Private Property Get ConnectionString()
    ConnectionString = "Driver={Mysql};Server=10.0.0.1;Database=dabada;UID=usern;PWD=passet"

End Property

'Open the DB
'----------------------------------------------------------------------------------
Public Function GetConn()
    Dim objConn As ADODB.Connection
    
    Set objConn = CreateObject("ADODB.Connection")
    objConn.Open ConnectionString
    Set GetConn = objConn

End Function

Sennare i samma Class modul, i en function har jag:

SQL = "Insert Into blaha"
SQL = SQL & "(blaha, labah)"
SQL = SQL & "VALUES('"& jippie &"', '"& hoho &"')"
GetConn.Execute(SQL),,128

Hur ska jag göra för att få ut Last_Insert_ID av insert:en ovanför?
Set RS = GetConn.Execute("Select Last_Insert_ID")
Funkar inte eftersom det då görs en ny DB öppning!

SQL = "Insert Into blaha"
SQL = SQL & "(blaha, labah)"
SQL = SQL & "VALUES('"& jippie &"', '"& hoho &"')"
set conn = getconn()
conn.Execute SQL,,128
set rs = conn.execute("select last_insert_id()")
id = rs(0)

aha, fick precis hjälp av @nders att optimera db kopplingen o då faller det på plats :)
Tack