' ----------------------------------------------------
	' Connection オブジェクト作成
	Set OpenDB = CreateObject("ADODB.Connection")
	
	' ----------------------------------------------------
	' 接続文字列作成
	strConnection = "Provider=SQLOLEDB;Data Source=サーバ名;"
	strConnection = strConnection & "Initial Catalog=DB名;"
	strConnection = strConnection & "User ID=sa;"
	strConnection = strConnection & "Password=;"

	' ----------------------------------------------------
	' DB 接続
	On Error Resume Next
	OpenDB.Open strConnection
	If Err.Number <> 0 Then
		Set OpenDB = Nothing
		MsgBox (Err.Description)
		Exit Sub
	End If
	On Error GoTo 0

	' ----------------------------------------------------
	' Recordset オブジェクト作成
	Set rs = CreateObject("ADODB.Recordset")

	' ----------------------------------------------------
	' 選択科目一覧 SQL 文字列作成
	SqlQuery = "select * from テーブル名 order by 名称"

	rs.Open SqlQuery, OpenDB
	
	nIdx = 0
	Do While Not rs.EOF

		Me.Refresh
		
		Combo2.AddItem (rs.Fields("名称").Value)
		Combo2.ItemData(nIdx) = rs.Fields("コード").Value
		nIdx = nIdx + 1
		
		' 次データの読込み
		rs.MoveNext

	Loop

	rs.Close
	Set rs = Nothing
	OpenDB.Close
	Set OpenDB = Nothing