SQL语句select case when end在VB或VBA中的应用？？

在SQL语句select case when end可以在ORCAL中运行。现将SQL语句select case when end引入到VB或EXCEL vba运行不了。问各位大侠，SQL语句select case when end能在EXCEL VBA或VB中运行吗？？？
在下面任何一种工作环境都行。
1、文本 数据库连接 
  Set conn = CreateObject("ADODB.Connection") 
  Set rs = CreateObject("adodb.recordset") 
  conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\", "", "" 
  rs.Open "select * from mmm.txt where aa  <> '' ", conn, 1, 3 
2、MDB 数据库连接 
  Private Function CreateConnection(AccessDbName As String) As ADODB.Connection 
  Dim ConStr As String, Cnn As ADODB.Connection 
  
  Set Cnn = New ADODB.Connection 
  With Cnn 
    .CursorLocation = adUseClient 
    .Provider = "Microsoft.Jet.OLEDB.4.0" 
    ConStr = "Data Source =" & ThisWorkbook.Path & AccessDbName 
    Cnn.Open ConStr 
  End With 
  Debug.Print "Have been Connection " & ThisWorkbook.Path & AccessDbName 
  Set CreateConnection = Cnn 
End Function 3、Excel 数据连接 
  Dim strSql As String 
  Dim cnn As New ADODB.Connection 
  Dim rs As New ADODB.Recordset 
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName 
  strSql = "SELECT distinct aa.aa,aa.bb,bb.dd" 
  strSql = strSql & " FROM [Sheet1$] AS aa " 
  strSql = strSql & "Inner Join [Sheet2$] as bb On aa.dd =bb.cc"