紧急问题，数据库连接错误

Question

1，怎样写当数据库连接错误就退出程序的代码？
2，listbox控件怎样取消其默认黑色边框？
3，listbox控件怎样让其默认显示右边下拉框（即滚动条）?向好心人致敬！

Answer 1

1.写一个函数连接数据库public Function ConnectToDB（） as Boolean
    on error goto ErrHandle
    
    ConnectToDB ＝ True
    exit Function
ErrHandle：
    ConnectToDB ＝ false
end Function在系统运行的地方连接，判断ConnectToDB  ＝ false 则 End2.把LISTBOX的Appearance的属性改成1－3D3.LISTBOX显示不下你的内容时，自动会出现滚动条

Answer 2

weiweiplay(虚幻) 理解错我的意思了：
2，我是要求去掉listbox的边框，即listbox不能出现边框？
3,要求当listbox里面没有内容时也应出现滚动条？

Answer 3

那你要用API函数了
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Answer 4

第一题自己已解决：
判断con.state的状态是否为1