Private Function MedikamenteLoad(intpbx As Integer) As Boolean
 
    Dim strSql As String
    Dim rst As New adodb.Recordset
    Dim cnn As New adodb.Connection
 
    Set cnn = New adodb.Connection
    With cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Jet OLEDB:Database Password").Value = strDbPwd
        .Properties("User ID") = strUser
        .Properties("Password") = strSysPwd
        .Properties("Data Source") = strDBPath
        .Properties("JET OLEDB:System Database").Value = strSecurityDb
    End With
    cnn.Mode = adModeReadWrite
    cnn.Open
 
    strSql = "SELECT * from tblSysMedikamente"
    Set rst.ActiveConnection = cnn
    rst.CursorLocation = adUseClient
    rst.Open strSql, cnn, adOpenDynamic, adLockOptimistic
 
    With cboMedikament(intpbx)
        .AutoOpenKeyDown = True
        .AutoComplete = True
        Set .DataSource = rst
        '.DataField = "SYSMED_CODE"
        .DataField = "SYSMED_Medikament"
        Set .Recordset = rst
        .BoundColumn = 2
        .DisplayColumn = 2
        .Columns(1).Visible = False
    End With
 
    rst.Close
    Set rst = Nothing
 
End Function