Hej har skrivt neadanstående kod i visual studio.Net. Finns det något man kan göra för att korta ner koden? Och i så fall hur? (Koden funkar men skulle vlja korta ner den lite)

<code>
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Skapa Databaskoppling
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\projekt.mdb")
' Skapa en SQL som visar allt inehåll i databasen!
Dim strSql As String = "SELECT * FROM Data"
' Talar om vilken databaskoppling och sql som vi ska använda oss av
madpAdapter = New OleDbDataAdapter(strSql, conn)
' Skapa koppling mot databasen
Dim cbCommandBuilder As New OleDbCommandBuilder(madpAdapter)
' Fyll dataset
madpAdapter.Fill(dsDataset, "Data")

' SQL för att söka i databasen
Dim sqlSok As String = "SELECT tblENamn from Data WHERE tblENamn = '" & sokord & "'"
' Tala om vilken SQL och databaskoppling som ska användas!
madpAdapter2 = New OleDbDataAdapter(sqlSok, conn)
' Skapa koppling mot databasen
Dim cbCommandBuilder2 As New OleDbCommandBuilder(madpAdapter2)
' Fyll dataset
madpAdapter2.Fill(dsDataset, "Data")


' Peka på första raden
minRadItabell = 0

' Skriv ut tabelldata
Visaineholl()

End Sub
</code>

1) Skriver du inte över allt i datasetet andra gången du anropar? Om det är så: Ta bort första anropet (dock ej connectionen)

2) Skriv in sql-strängen direkt...