Protected Sub Search_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Search.Click
        AccessDataSource1.InsertCommand = "SELECT * FROM [AvailRides] WHERE StartZip =" & ZipSearch.Text
 
    End Sub

Public Function LoadData(ByVal StrQuery As String) As DataSet
        Try
            Dim con As New MySqlConnection(GetConnection.ToString)
            Dim cmd As New MySqlCommand(StrQuery, con)
            Dim ds As New DataSet
            Dim da As New MySqlDataAdapter(cmd)
 
 
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
            con.Open()
            da.Fill(ds)
            If IsNothing(ds) Then
                ds = Nothing
                Return ds
            Else
                Return ds
            End If
 
        Catch ex As Exception
            Throw ex
        End Try
 
    End Function