在VC中用ADO连接Access数据库，怎样判断是否连接？

Question

在VC中用ADO连接Access数据库，怎样判断是否连接？

Answer 1

m_pConnetion->State == adStateOpen

Answer 2

Sub ConnectionExample1()
   Dim cnn As ADODB.Connection
   Set cnn = New ADODB.Connection
   ' 用ODBC打开连接.
   cnn.Open "Pubs", "sa", ""
   ' 检查是否完成连接
   If cnn.State = adStateOpen Then
      MsgBox "Welcome to Pubs!"
   Else
      MsgBox "Sorry. No Pubs today."
   End If
  关闭connection对象
   cnn.Close
End Sub

Answer 3

为什么我在调用State运行时，编译器报共享冲突？