<%@ Page Language="VB" Debug="true" codePage="28599" %>
<%@ import namespace="System.Data.OleDb" %>

<script runat="server">
Sub Page_Load(obj as object, e as eventargs)

Dim bag As OleDbConnection
bag = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source="& Server.MapPaş("vt1.mdb"))

bag.Open()

Dim fat As OleDbCommand
fat = New OleDbCommand( "Insert INTO fatih1 ( ad, soyad, meslek, yaş ) Values( 'ömer', 'sanli' , 'mühendis', '27' )" , bag )

fat.ExecuteNonQuery()

bag.Close()

End Sub
</script>