Отображение и вывод списка баз данных в ListBox

[SnakeGod]

Есть форма, на ней кнопка [NEW], создает базу данных.
Создали, теперь. как сделать так что бы в элементах ListBox отображались созданные базы , а по выбору их они автоматически открывались для ReadOnly , а по нажатию на кнопку [EDIT] открывалась в режими ReadWriteOnly (непосредственно та база, которая выбрана в ListBoxe)

Заранее благодарю.

P.S. с базами сталкнулся впервые. прошу конкретного ответа, можно и кусочек кода:-)Маленький. там я докавыряюсь, надо сдвинуться с места

[HandKot]

а что за база?

[SnakeGod]

а что за база?

База : Access
Язык : VB 6.0 Professional

[Konst_One]

Создали, теперь. как сделать так что бы в элементах ListBox отображались созданные базы

что такое созданные базы Это отдельные файлы mdb или вы так называете таблички внутри одной базы mdb

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

[SnakeGod]

Создали, теперь. как сделать так что бы в элементах ListBox отображались созданные базы

что такое созданные базы Это отдельные файлы mdb или вы так называете таблички внутри одной базы mdb

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

Создаеться [база],а ни табличка, файл mdb

код:

Private Sub cmdnew_Click()

On Error GoTo procerror
Screen.MousePointer = 11
Dim dbname As String
dbname = GetDBName()
If Len(dbname) > 0 Then
CreateDB dbname
End If
procexit:
Screen.MousePointer = 0
Exit Sub
procerror:
MsgBox Err.Description
Resume procexit
End Sub
---------
Public Function GetDBName() As String

On Error GoTo procerror
Dim filename As String
cd.DefaultExt = "mdb"
cd.DialogTitle = "Create Database"
cd.Filter = "VB Databases (*.mdb)|*.mdb"
cd.FilterIndex = 1
cd.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt Or cdlOFNPathMustExist
cd.CancelError = True
cd.ShowSave
filename = cd.filename
On Error Resume Next
Kill filename
procexit:
GetDBName = filename
Exit Function
procerror:
filename = ""
Resume procexit

End Function
--------------
Public Sub CreateDB(dbname As String)

Dim db As Database
Set db = DBEngine(0).CreateDatabase(dbname, dbLangGeneral)

End Sub

Создается с помощью Common Dialog