CommandTextプロパティの設定の仕方がわからない

Question

Excelでお仕事

VBAの学習をしております。
削除機能を追加するにあたコードを書いていたのですが、
「 Command オブジェクトの CommandText が設定されていません。」と実行時エラーが出てしまいました。

調べてみると『ADO.CommandオブジェクトにCommandTextプロパティを設定せずExecuteメソッドを実行しようとして出たエラーです』とあり、実行するSQLが空になっていると...

いろんなサイトを回ったのですが知識不足で解決出来ず２時間無駄にしてしまったので、
ご存知の方いればご教授していただきたいです。

よろしくお願いします。

Private Sub BTN_DEL_Click()

    Dim dbCon As ADODB.Connection                                   ' ADODB.Connection
    Dim dbCmd As ADODB.Command                                   ' ADODB.Command
    Dim strBusyoCd As String                                                ' 選択部署コード
    Dim strYakuCd As String                                                 ' 選択役職コード
    Dim strSQL As String                                                       ' SQL文編集WORK
    Dim blnUpdate As Boolean
    
    Dim msg As String                                                          'MsgBox
    Dim ret As String                                                             '戻り値
    Dim sql As String                                                             'sql
    Dim Command As String

        '確認する
        msg = "このデータを削除しますか？"
        ret = MsgBox(msg, vbQuestion + vbOKCancel, "g_cnsTitle")
            If ret = vbOK Then
                    ' データベースへの接続
                    If Not FP_GetSqlConnection(dbCon) Then
                        Me.Hide
                        Exit Sub
                    End If
        
            'SqlConnection.CreateCommand Method
            dbCon.CreateCommand
            dbCmd.CommandText = strSQL
        
                ' 登録するSQL文を作る
                sql = "DELETE FROM MST_HAIZOKU WHERE"
        
                    ' 実行する
                    dbCon.Execute (sql)
                
                MsgBox "削除しました。", vbInformation + vbOKOnly, ""
                
                Call GP_StartSCUPD
            
            Else
                MsgBox "処理を中断します"
            
            End If

    ' データベース接続を閉じる
    dbCon.Close
    Set dbCon = Nothing
    g_blnReturnValue = True
    Me.Hide
    
End Sub

        'SqlConnection.CreateCommand Method
        dbCon.CreateCommand
        dbCmd.CommandText = strSQL

メソッドでコマンドのインスタンスっていうのはどうすればよいのでしょうか？
JavaならNewをするような認識なのですが、、