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