Public Shared Sub abfrage_ausfuehren_start_form(ByVal dieser_sql As String)
    	Try
        	conn.ConnectionString = myConnectionsString
        	conn.Open()
        	da = New MySqlDataAdapter(dieser_sql, conn)
        	Dim Variable As New DataColumn
 
        	'Variable beschreiben
 
 
 
 
 
        	conn.Close()
    	Catch ex As MySql.Data.MySqlClient.MySqlException
        	MessageBox.Show(ex.Message)
    	End Try
	End Sub
 
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
    	sql = "SELECT Max(test.id) AS Maxvonid FROM test;"
    	abfrage_ausfuehren_start_form(sql)
	End Sub