必要な名前空間 : http://msdn.microsoft.com/ja-jp/library/system.data.odbc.aspx|(System.Data.Odbc)

読み込み
@DIV
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

	Dim strCon As String

	' 接続文字列作成
	strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"

	' 接続準備
	Dim myCon As OdbcConnection = New OdbcConnection(strCon)

	' コマンド
	Dim strQuery As String = "select * from 社員マスタ"
	' コマンド準備
	Dim myCommand As OdbcCommand = New OdbcCommand(strQuery)
	' コマンドを使用する接続用インスタンスを関係付ける
	myCommand.Connection = myCon
	' 接続
	myCon.Open()

	' レコード取得用のオブジェクト
	' レコード取得用のオブジェクトを取得
	Dim myReader As OdbcDataReader = myCommand.ExecuteReader()

	' データ取得用の変数
	Dim str As String = ""
	Dim fld As Integer

	' 全てのレコードを取得
	Do While myReader.Read()

		' 列の番号
		fld = myReader.GetOrdinal("社員コード")
		' 列の文字列値
		If myReader.IsDBNull(fld) Then
			str += "null"
		Else
			str += myReader.GetString(fld)
		End If
		' 列の番号
		fld = myReader.GetOrdinal("氏名")
		If myReader.IsDBNull(fld) Then
			str += "|null"
		Else
			str += "|" + myReader.GetString(fld)
		End If

		str += vbCrLf

	Loop

	' 接続解除
	myCon.Close()

	Me.TextBox1.Text = str

End Sub
@END


更新
@DIV
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

	Dim strCon As String

	' 接続文字列作成
	strCon = "Driver={Microsoft ODBC for Oracle};SERVER=localhost/ORCL;UID=lightbox;PWD=lightbox"

	' 接続準備
	Dim myCon As OdbcConnection = New OdbcConnection(strCon)
	' 接続
	myCon.Open()

	' コマンド
	Dim strQuery As String = "insert into 社員マスタ (社員コード) values('9901')"
	' コマンド準備
	Dim myCommand As OdbcCommand = New OdbcCommand(strQuery, myCon)
	' 実行
	myCommand.ExecuteNonQuery()

	' コマンド
	myCommand.CommandText = "insert into 社員マスタ (社員コード) values('9902')"
	' 実行
	myCommand.ExecuteNonQuery()

	' 接続解除
	myCon.Close()

End Sub
@END