i have code to produce a database and tables but now i am looking 4 code 2 add relationships to the tables i would have made

Sub Create_ALL_Tables(ByVal dbName As String)

        Dim sql_Area As String = "CREATE TABLE Area (Category_ID bigint IDENTITY NOT NULL," & _
        "Category nvarchar(50) NULL,Area_Name nvarchar(50) NULL," & _
        "Visibility nvarchar(50) NULL,PRIMARY KEY (Category_ID))"

        MyFormz.cl_Class.SQL_Create_str2(sql_Area, dbName)

If you can read BNF this page has everything you need.