VB.NET的一個數據庫調用的模板﹗Imports System.Data.OracleClientModule Module_ADO
    Private _cnn As New OracleConnection("user id=帳戶;data source=數據源;password=密碼")
    Private _cmd As New OracleCommand
    Private _adp As New OracleDataAdapter
    Private _main As New Form1    Public _dt As New DataTable    Public Sub main()
        _main.ShowDialog()
    End Sub    '執行數據庫查詢語句
    Public Function ExeQuerySQL(ByVal strSQL As String) As DataTable
        Dim dtQuery As New DataTable
        Try
            _adp = New OracleDataAdapter(strSQL, _cnn)
            _adp.Fill(dtQuery)
            Return dtQuery
        Catch ex As Exception
            Return Nothing
        End Try    End Function    '執行數據庫控制語句
    Public Function ExeNonQuerySQL(ByVal strSQL As String) As Boolean
        _cmd = _cnn.CreateCommand
        _cmd.CommandText = strSQL        Try
            If _cnn.State.Equals(System.Data.ConnectionState.Closed) Then _cnn.Open()
            _cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        Finally
            _cmd.Dispose()
            _cnn.Close()
        End Try
    End Function
End Module