Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Силblч
у меня к ораклу так

Public Function conn2dbasync(unm$, ppw$, Optional ccon& = 0) Dim lngStartTime As Long On Error GoTo err123 conn2dbasync = 0 If ccon = 0 Then     If conn.State <> 0 Then conn.Cancel: Set conn = Nothing ': conn.Close Else     If conn.State = 1 Then conn2dbasync = 1: Exit Function End If Set conn = New ADODB.Connection conn.ConnectionTimeout = 30 conn.CursorLocation = adUseClient conn.ConnectionString = "<моя строка>" conn.Open , , , adAsyncConnect lngStartTime = GetTickCount() Do While ((GetTickCount() - lngStartTime) < conn.ConnectionTimeout * 1000) And (Not conn.State = adStateOpen): Loop If Not conn.State = adStateOpen Then     If conn.State = adStateConnecting Then         conn.Cancel     End If Else     Call set_priv     If conn.State = 0 And conn.Errors.Count > 0 Then Exit Function     conn2dbasync = conn.State End If Exit Function err123: MsgBox Error & IIf(conn.Errors.Count > 0, vbCrLf & conn.Errors.Item(0).Description, ""), , "conn2dbasync" Exit Function End Function

имхо, зависает, потому что надо асинхронный режим использовать (adAsyncConnect)