Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Inventory.accdb;"
Don't scatter connection logic across forms. Create a dedicated class DatabaseHelper.vb :
Private Sub DeleteUser(id As Integer) Dim connString As String = GetConnectionString() Dim query As String = "DELETE FROM Users WHERE ID = @ID" Using conn As New OleDbConnection(connString) Using cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("@ID", id) conn.Open()