Есть программа работающая с базой ацесс, по желанию клиента сделала ее сетевой, для пользователей на других компах, соединение через dsn файл, возможно ли в программе написать код для отключения соединения определенного пользователя т.е.(компьютера в сети), для мониторинга пользователей использую это код

Private Sub conn_check()
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim Lst As MSComctlLib.ListItem
Lv.ListItems.Clear
If con.State = adStateOpen Then con.Close
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.Open "Data Source=" & dbPath
con.Properties("Jet OLEDB:Connection Control") = 1
Set rs = con.OpenSchema(adSchemaProviderSpecific, , _
"{947bb102-5d43-11d1-bdbf-00c04fb92675}")
rs.MoveFirst
Do Until rs.EOF
Set Lst = Lv.ListItems.Add(, , , , "user")
Lst.text = rs.Fields(0).Value & ""
Lst.SubItems(1) = rs.Fields(1).Value & ""
Lst.SubItems(2) = rs.Fields(2).Value & ""
Lst.SubItems(3) = rs.Fields(3).Value & ""
rs.MoveNext
Loop
Set con = Nothing
Set rs = Nothing
Set Lst = Nothing

End Sub
Представление в листвю,
колонки (имя компа/имяпользователя базы/состояние/ соединения)

А как отключить соединение, к примеру выбираем компьютер в списке и отключаем?
Заранее спасибо

спсибо за совет, но мне нужно не машину отключать а ресурс которая использует машина, т.е. соединенеи с бд