neat function

    Private Function GetTableEntry(ByVal argTablename As String, ByVal argRow As String, ByVal argColumn As String) As String
        Using cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Data\Characters.accdb")
            cn.Open()
            Dim cmd As New OleDb.OleDbCommand("Select " & argColumn & " FROM " & argTablename & " WHERE ID=" & argRow, cn)
            Return CStr(cmd.ExecuteScalar())
        End Using
    End Function