どなたか親切な方教えてください！！

どなたか親切な方教えてください！！

Option Explicit
Dim DB
Dim SGYO_SQL
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Public Sub Form_Load()


    Set DB = CreateObject("ADODB.Connection")
    DB.ConnectionString = "driver={SQL Server};" & _
    "server=TICTOKIO-SERVER;uid=ticadmin;pwd=tic;database=dev"
    DB.ConnectionTimeout = 60
    
    SGYO_SQL = "Select * from 作業者"
    rs.Open SGYO_SQL, DB, 3, 1

    Text1.Text = rs.Fields("作業者ID").Value
    
    rs.Close
    Set rs = Nothing

End Sub

こんな感じではだめなんですが…
何をどうすればいいでしょう？？？？

> Dim cn As New ADODB.Connection
は、何の為の宣言なのでしょうか？
何ゆえCreateObjectしているんですか？
エラーメッセージを見て理解不能ですか？

お返事遅れて申し訳ありません。
お忙しい中のご返答ありがとうございます。

ご指摘の一行は意味がなかったので、改修いたしました。

Option Explicit
Dim DB
Dim SGYO_SQL
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Public Sub Form_Load()

    Set DB = CreateObject("ADODB.Connection")
    DB.ConnectionString = "driver={SQL Server};" & _
    "server=TICTOKIO-SERVER;uid=ticadmin;pwd=tic;database=dev"
    DB.ConnectionTimeout = 60
    
    Set rs = CreateObject("ADODB.Recordset")
    
    SGYO_SQL = "Select * from 作業者"
    rs.Open SGYO_SQL, DB, 3, 1

    Text1.Text = rs.Fields("作業者ID").Value
    
    rs.Close
    Set rs = Nothing

End Sub

このソースを実行してみると、下記のエラーが帰ってきます。

実行時エラー '3709'

この操作を実行するために接続を使用できません。このコンデキストで閉じ
ているかあるいは無効です。

どういう状態のエラーかもわかりません（＠＠）

SQLServerにADO接続したいんですよね？

提示されたエラーは、たぶん、コネクションをオープンしてないから
でないですか？

> 提示されたエラーは、たぶん、コネクションをオープンしてないから
> でないですか？

お返事大変ありがとうございます。
コネクションのオープンが確かに抜けていました。
本当に助かりました！！
Mercateさんもtakさんもありがとうございました。

VBを始めたばかりで四苦八苦していたとこでした（＠＠）