DB接続

Imports System.Data.OleDb

Private Function hogeDb() As Boolean

  Dim sqlConn As OleDbConnection
  Dim strConn As String
  Dim strSql As String
  Dim sqlCmd As OleDbCommand
  Dim sqlRec As OleDbDataReader
  Dim strField As String

  strConn = strConn & "Provider = hoge"
  strConn = strConn & ";Data Source = hoge"
  strConn = strConn & ";User Id = hoge"
  strConn = strConn & ";Password = hoge"
  strConn = strConn & ";"

  sqlConn = New OleDbConnection
  sqlConn.ConnectionString = strConn
  sqlConn.Open()

  strsql = "select * from hoge"
  sqlCmd = New OleDbCommand
  sqlCmd.CommandText = strSql
  sqlCmd.Connection = sqlConn
  sqlCmd.CommandTimeout = 10
  sqlRec = sqlCmd.ExecuteReader

  strField = sqlRec("FIELD")

  sqlRec.Close()
  sqlRec = Nothing
  sqlCmd.Dispose()

  sqlConn.Close()

End Function

XMLファイル読み込み

Imports System.Xml

Private Function hoge() As Boolean

  Dim xDoc As XmlDocument = New XmlDocument
  Dim xNode As XmlNode
  Dim strUserId As String

  xDoc.Load("hoge.xml")
  xNode = xDoc.SelectSingleNode("CONFIG/CONNECT/USERID")
  strUserId = xNode.InnerText

End Function

XML結構扱いやすいね。