how to convert sql connection to odbc connection for Oracle database?

Hi,

i need help to connect oracle database using ODBC connection. Right now this application is working using sql connection for sql database and i was able to insert data. so what i need to change on this VB code to connect oracle database using ODBC? I would like to put connection string into web.config file.

Thanks in advanced

<%@ Page Title="Vendor Add" Language="vb" AutoEventWireup="false" MasterPageFile="~/MasterPage.Master" CodeBehind="Vendor_Add.aspx.vb" Inherits="Test.Vendor_Add" %><%@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %><asp:Content ID="Content1" ContentPlaceHolderID="head" runat="Server"><link href="styles/default.css" rel="stylesheet" /><link href="styles/StyleSheet1.css" rel="stylesheet" /></asp:Content><asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceholder1" runat="Server"><div class="demo-container"><div><table style="border:2px solid;"><tr style="height: 40px;"><td style="width: 200px;"><telerik:RadLabel runat="server" ID="RadLabel3" Text="Vendor Contacts" AssociatedControlID="RadTextBox2" /></td><td style="text-align: left"><asp:HiddenField ID="HiddenField1" Value="0" runat="server" /><asp:Table ID="Program_Table" runat="server" border="0" CellPadding="0" CellSpacing="0" Style="border-collapse: collapse"><asp:TableHeaderRow><asp:TableHeaderCell>Name</asp:TableHeaderCell><asp:TableHeaderCell>Email</asp:TableHeaderCell><asp:TableHeaderCell>Address</asp:TableHeaderCell><asp:TableHeaderCell>Phone number</asp:TableHeaderCell><asp:TableHeaderCell>Role</asp:TableHeaderCell></asp:TableHeaderRow></asp:Table><br /><%-- <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:TelerikConnectionString %>"
                                            SelectCommand="SELECT * FROM [Developer]"></asp:SqlDataSource>--%><asp:Button ID="btn_hdcProgram" runat="server" Text="add a row" OnClientClick="btn_hdcProgram_Click()" /><script type="text/jscript">
                            function btn_hdcProgram_Click() {
                                document.getElementById("<%=HiddenField1.ClientID%>").value = (parseInt(document.getElementById("<%=HiddenField1.ClientID%>").value) + 1).toString();
                            }</script></td></tr><tr style="height: 40px"><td><telerik:RadLabel runat="server" ID="RadLabel1" AssociatedControlID="Rad_ddlhdcProgram" Text="Description of Service" Width="80px" /></td><td><asp:TextBox ID="txt_ServiceDesc" runat="server" Width="90%" /></td></tr><tr style="height: 40px"><td><telerik:RadLabel runat="server" ID="RadLabel2" AssociatedControlID="Rad_ddlhdcProgram" Text="Company Website" /></td><td><asp:TextBox ID="TextBox1" runat="server" /></td></tr>                <tr style="height: 40px"><td><telerik:RadLabel runat="server" ID="RadLabel20" AssociatedControlID="Rad_ddlhdcProgram" Text="Notes" /></td><td><asp:TextBox ID="TextBox8" runat="server" /></td></tr><tr><td><telerik:RadLabel runat="server" ID="RadLabel21" AssociatedControlID="RadNumericTextBox5" Text="Active/Inactive"></telerik:RadLabel></td><td style="width: 900px; height: 100%"><table><tr><td style="border: solid 1px; text-align: center; width: 100px"><telerik:RadCheckBox runat="server" ID="RadChck_RFPsiteY" Text="Yes" Checked="true"></telerik:RadCheckBox><telerik:RadCheckBox runat="server" ID="RadChck_RFPsiteN" Text="No" Checked="false"></telerik:RadCheckBox></td></tr></table></td></tr><tr><td><telerik:RadButton ID="btn_Submit" runat="server" Text="Save" OnClick="btn_Submit_Click" /></td></tr></table></div></div></asp:Content>

Imports System
Imports System.Collections.Generic
Imports System.Configuration
Imports System.Data.SqlClient
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Telerik.Web.UI


Partial Public Class Vendor_Add
    Inherits System.Web.UI.Page

    Private rows As Integer = 0
    Private rows2 As Integer = 0
    Private rows3 As Integer = 0
    Private QtRows As Integer = 4

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If HiddenField1.Value <> "" Then
            rows = Integer.Parse(HiddenField1.Value)

            For i As Integer = 0 To rows - 1
                Dim tr As TableRow = New TableRow()
                Dim tc As TableCell = New TableCell()
                Dim tb As TextBox = New TextBox()
                tb.ID = "Name" & i.ToString()
                tc.Controls.Add(tb)
                Dim tb2 As TextBox = New TextBox()
                tb2.ID = "Email" & i.ToString()
                Dim tc2 As TableCell = New TableCell()
                tc2.Controls.Add(tb2)
                Dim tb3 As TextBox = New TextBox()
                tb3.ID = "Address" & i.ToString()
                Dim tc3 As TableCell = New TableCell()
                tc3.Controls.Add(tb3)
                Dim tb4 As TextBox = New TextBox()
                tb4.ID = "Phone" & i.ToString()
                Dim tc4 As TableCell = New TableCell()
                tc4.Controls.Add(tb4)
                Dim tb5 As DropDownList = New DropDownList()
                tb5.ID = "Role" & i.ToString()
                tb5.Items.Add(New ListItem("Account Manager", "Account Manager"))
                tb5.Items.Add(New ListItem("Executive", "Executive"))
                tb5.Items.Add(New ListItem("Sales", "Sales"))
                tb5.Items.Add(New ListItem("Support", "Support"))
                Dim tc5 As TableCell = New TableCell()
                tc5.Controls.Add(tb5)
                tr.Cells.Add(tc)
                tr.Cells.Add(tc2)
                tr.Cells.Add(tc3)
                tr.Cells.Add(tc4)
                tr.Cells.Add(tc5)
                Program_Table.Rows.Add(tr)
            Next
        End If       
    End Sub

    Protected Sub btn_Submit_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim query As String
        Dim sqlcon As SqlConnection = New SqlConnection()
        sqlcon.ConnectionString = "Data Source=Test;Initial Catalog=Vendors;Integrated Security=True"
        Dim sqlcom As SqlCommand = New SqlCommand()
        sqlcom.Connection = sqlcon        
        sqlcom.CommandText = "insert into Vendor_Contacts (Name,Email,Address,Phone,Role,Service_Desc) values (@name,@email,@address,@phone,@role,@service_desc)"        

        For i As Integer = 0 To rows - 1
            sqlcom.Parameters.Clear()
            Dim tb1 As TextBox = TryCast(Program_Table.Rows(i).Cells(0).FindControl("name" & i.ToString()), TextBox)
            Dim tb2 As TextBox = TryCast(Program_Table.Rows(i).Cells(1).FindControl("email" & i.ToString()), TextBox)
            Dim tb3 As TextBox = TryCast(Program_Table.Rows(i).Cells(2).FindControl("address" & i.ToString()), TextBox)
            Dim tb4 As TextBox = TryCast(Program_Table.Rows(i).Cells(3).FindControl("phone" & i.ToString()), TextBox)
            Dim tb5 As DropDownList = TryCast(Program_Table.Rows(i).Cells(4).FindControl("role" & i.ToString()), DropDownList)
            sqlcom.Parameters.AddWithValue("@name", tb1.Text)
            sqlcom.Parameters.AddWithValue("@email", tb2.Text)
            sqlcom.Parameters.AddWithValue("@address", tb3.Text)
            sqlcom.Parameters.AddWithValue("@phone", tb4.Text)
            sqlcom.Parameters.AddWithValue("@role", tb5.SelectedItem.Text)
            sqlcom.Parameters.AddWithValue("@Service_Desc", txt_ServiceDesc.Text)
            sqlcon.Open()
            sqlcom.ExecuteNonQuery()
            sqlcon.Close()
        Next

        Program_Table.Rows.Clear()
    End Sub
End Class